1)сформировать массив каждый их них равен своему порядковому номеру умноженому на 6. Найти среднее арифметическое всех элементов массива.

Паскаль. Помогите пожалуйста

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);

 a.Println;

 Println('Среднее', a.Average)

end.

n= 13

6 12 18 24 30 36 42 48 54 60 66 72 78

Среднее 42

var a:array[1..50] of integer;

i:integer;  z:real;

begin

     for i:=1 to random(30) do

     begin

          a[i]:=i*6;

          z:=z+a[i];

          write(a[i],' ');

     end;

     writeln;

     write('Среднее арифметическое элементов массива=',z/50);

end.