С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль

program zz1;

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

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

begin

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

begin

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

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

end;

sr:=s/10; / / вычисляем среднее арифметическое по формуле

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

end.