Дано N-произвольных чисел найти их сумму.

var

n, i: integer;

a, s: real; / / a - вводимое число, s - сумма чисел

begin

s: = 0; / / Обнуляем значение суммы

writeln ('Введите N') ;

readln (N) ; / / Вводим N

for i: = 1 to N do {N раз вводим число и каждый раз прибавляем введенное число к значению суммы}

begin

writeln ('Введите число') ;

readln (a) ;

s: = s + a;

end;

writeln ('Сумма введенных чисел равна: ', s) ; / / Выводим сумму

end.

Если все правильно, отметь решение как лучшее)