program example1;
var a,b:integer;
begin
a:= 2;
b:=0;
if a=7 then writeln(b)
else
a:= a+1;
b:= b+a;
writeln(b)
end;
end.
Объяснение:
привет
