Написать программу с помощью цикла while которая производит суммирование любых десяти чисел. Буду очень благодарен!

Var i:integer; n,sum:real;
Begin
  Write(Введите 10чисел: );
while (i<>10) do begin
                          readln(n);
                          sum:=sum+n;
                           i:=i+1;
  end;
writeln(Сумма этих чисел - ,sum);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.