По блок-схеме составить программу ** языке Паскаль, определяющую значение переменной b

Question

По блок-схеме составить программу на языке Паскаль, определяющую значение переменной b

---

Answer 1

Program example1;
var a,b:integer;
begin
a:= 2;
b:=0;
if a=7 then writeln(b)
else
begin
a:= a+1;
b:= b+a;
writeln(b)
end;
end.