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

Программа напишет -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.