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

end.