Ответ:

var a,b:integer;

begin

a := 2;

b := 4;

if b >= 0 then

begin

b:= a*b + 1;

a:= a - 2;

end

else b:= b + a;

writeln(b);

end.