с информатикой! Нужно написать программу в PascalABC. Сябки заранее =)

program svs;

var

a,b:integer;

begin

a:= 1;

b:= 2;

while a > 0 do

begin

b:= b - 2;

a:= a + b;

end;

b:= a + b;

writeln(b);

writeln(a);

end.