Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму. число N вводится с клавиатуры.

program zz1;

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

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

begin

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

read (n);

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

begin

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

read (a);

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

end;

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

end.