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

program p;

var b, c:integer;

begin

c := 0;

b := 3;

while b <= 10 do

begin

c := c + b;

b := b + 2;

end;

writeln(c);

end.