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