Напишите программу которая генерирует 10 случайных чисел в диапазоне от 1 до 20 выводит эти числа на экран и вычисляет их среднее арефмитическое

program zz1;

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

begin

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

begin

a:=random (9) + 1; / / получаем случайное число в диапазоне от 1 до 10

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

r:=r + a; / / вычисляем сумму чисел

end;

writeln; / / переходим на новую строку для вывода ответа

write (' среднее арифметическое = ', r/10); / / выводим ответ

end.