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

спасибо)

var a,b,i: integer;beginb:=0;for i:=1 to 10 do begina:=random(20)+1;write(a,' ');b:=b+a;end;writeln('Среднее арифметическое чисел:', b/10)end.