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

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