Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры. program demofor1; var s, p, i: integer; begin for i: =.. to .. dobeginwriteln (‘введите число’); (p); s: =s+ ; end; writeln (‘ сумма равна’; end.

Program Demofor1;
Var      S, P, I: integer; Begin
For I:= 0 to 9  do
Begin
Writeln ('Введите число');
readln(p);
S:=S+p ;End;
Writeln (' Сумма =', s);
End.