Question

СРОЧНО!!!
ПОСТРОЙТЕ БЛОК СХЕМУ К НАПИСАННОЙ ПРОГРАМЕ)))
var a,b,s:intrger
begin
a:=1
b:=2
write a+b<8 do
begin
a:=a+1
b:=b+2
end.
s:=a+b
writeln('s=',s)
end.

​