Написать программу , которая находит сумму 10 чисел введенных пользователем с решить надо в виде блок схемы , с применением цикла с параметром

//Pascal
var
  i: byte;
  sum, N: integer;
begin
  for i := 1 to 10 do
  begin
    readln(N);
    sum := sum + N;
  end;
  writeln(sum);
end.