составить программу которая запрашивает n целых чисел и вычисляет их среднее арифметическое

program zz1;

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

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

begin

write (' введите n '); / / вводим заданное n

read (n);

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

begin

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

s:=s + a; / / находим сумму введенных чисел

end;

sr:=s/n;

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

end.