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

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