Дано 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.

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