Вычислить сумму 10 естественных чисел, вводимых с клавиатуры.Program Demofor1;Var      S, P,

Вычислить сумму 10 естественных чисел, вводимых с клавиатуры.
Program Demofor1;
Var S, P, I: integer;
Begin
For I:=.. to .. doBeginWriteln (Введите число);
(P);S:=S+... ;
End;
Writeln ( Сумма равна,..);
End.