Останется точно такой же круг, ничего не должно измениться.
(но это не точно)
Выведет 0. s=0. n=4. сразу выполнется условие (n>2) и программа выведет s тоесть 0
Диск C правая кнопка мыши и форматировать
var a:integer;
Begin
read(a);
if a mod 3 = 0 then writeln('Делится')
else writeln('Не делится');
readln;
End.