Задание. Найти сумму 10 произвольных чисел.

Program summa;

Const N=10;

Var k, x, s: integer;

Begin

k:=0; s:=0; {k- количество введенных чисел}

while k < n do

begin

k := k+1;

write (‘Введите число’);

readln (x);

s:=s+x;

end;

writeln (‘Сумма чисел равна’, s);

end.