var a,b,s:integer;

begin

a:=1;

b:=2;

while a+b<8 do

begin

a:=a+1;

b:=b+2;

end;

s:=a+b;

writeln ('s=', s)

end.

Постройте блок-схему к программе,СРОЧНО