Question

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

Answer 1

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