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

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

program random_1; var x,sum,i:integer; begin randomize; writeln('Ряд случайных чисел: '); for i:=1 to 10 do begin                         x:=random(20)+1;                         sum:=sum+x;                         if i<>10 then write(x,', ')                                     else writeln(x,'.');                         end; writeln('Среднее арифметическое этих чисел ',sum/10); end.