Даны естественные число 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);  // выводим ответ в формате 5 символов для всего числа и два знака после точки

end.