Даны натуральные число n, действительные числа a1, ... an. Вычислить а1 + ... + an. На паскале

program zz1;

var n, i:integer; / / задаем переменные целого типа

a, b:real; / / задаем переменные не целого типа

begin

write (' введите заданное n '); / / вводим с клавиатуры натуральное число

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим очередное действительное число с клавиатуры

b:=b + a; / / прибавляем введенное число к сумме

end;

write (' сумма n заданных действительных чисел = ', b:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.