Программа, которая генерирует последовательность из 10 чисел в диапазоне от 1 до 30 и вычисляет их среднее арифметическое — Pascal(Паскаль)

program ff;

var
  A: array [1 .. 100] of integer; { переменная массива }
  i, n, sum: integer; { переменные для циклов + переменная суммы }

begin
  n := 30; { размер массива }
  sum := 0; { обнуляем сумму }
  { ниже задаём массив вычисляем сумму }
  for i := 1 to n do
  begin
    A[i] := 1 + random(29);
    sum := sum + A[i];
  end;

  write('Vot massiv A:');
  for i := 1 to n do
    write(A[i]:3); { выводим массив на экран }
  writeln;

  writeln('Sredniya arifmeticeskya: ', sum / 30:0:2);
  { выводим результат на экран }

  readln;

end.