Написать код в Pascal.

Задача: Сформулировать и вывести на экран в виде таблицы массив A[1..4,1..6], заполнив его целыми случайными числами из интервала [30,75]
Найти среднее арифметическое каждого столбца.

const  m=4;  n=6;var  a:array[1..m,1..n] of integer;  i,j:integer;  p:real;begin  randomize;  for i:=1 to m do  begin    for j:=1 to n do    begin      a[i,j]:=random(46)+30;      Write(a[i,j]:3)    end;    Writeln  end;  Writeln;  for j:=1 to n do  begin;    p:=0;    for i:=1 to m do      p:=p+a[i,j];    Write(p/m:6:2)  end;  Writelnend.

program mas;

var A:array[1..4,1..6] of integer;

i, j: integer;

summ: integer;

id: integer;

begin

randomize;

for i := 1 to 4 do

begin

for j := 1 to 6 do

begin

A[i, j] := random(30) + 45;

write(A[i,j]);

write(' ');

end;

writeln('');

end;

for j := 1 to 6 do

begin

for i := 1 to 4 do

begin

summ := summ +A[i, j];

end;

writeln(summ / 4);

summ := 0;

end;

readln;

end.