Что выведут на экран следующие фрагменты программы? !!!!Приведите этапы решения!!!!!:


Program p3A;

var a,b:integer;

begin

a:=1; b:=1;

while a+b <8 do begin

a:=a+1; b:=b+2:

end;

Writeln (a+b);

end.