Question

составьте алгоритм, программу и значение переменной ​

Answer 1

program P;

var a, b:integer;

begin

a:=2;

b:=12;

repeat

begin

           b:=b-4;

           a:=a+b;

end

until (a<0);

b:=a+b;

writeln(b);

end.

Ответ: -22