Question

какое значение будет иметь переменная а после выполнения рагмента программы:
а:=1;
for n:= 1 to 4 do
а:=а+2-n;
if a>0 then
a:=a+10
writeln (a)

Answer 1

Программа напишет -1

program alg;
 uses Crt;
 var  a,n: integer;
begin
 ClrScr;
 a:=1;
 for n:= 1 to 4 do
   a:=a+2-n;
 if a>0 then
 a:=a+10;
 writeln (a);
 ReadLn;
end.