СРОЧНО ПОЖАЛУЙСТА
напишите программу по алгоритму
с помощью if или while или repeat
и сколько будет равно a

Program n1;var a,b: integer;begina:=-3;b:=11;while a<=4 dobegina:=a+2;b:=b-1;end;while b>0 dobeginb:=b-1;a:=a+1;end;writeln(a);end.//скомплировал, компилятор выдал а=12;