По бс схеме составьте программу на паскале

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.

Объяснение:

привет