Переведи блок схему ** язык Паскаля

Question

Переведи блок схему на язык Паскаля

Answer 1

program p;

var b, c:integer;

begin

c := 0;

b := 3;

while b

begin

c := c + b;

b := b + 2;

end;

writeln(c);

end.