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