Дано 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. Если все правильно, отметь решение как лучшее)