Найти произведение элементов в каждом столбце массива размером MxN, элементы которого вводятся с клавиатуры написать программу по Паскаль​

const m=2;

n=2;

var p,i,j:integer;

a: array [1..n,1..m] of integer;

begin

for i:=1 to m do

  for j:=1 to n do begin

    read(a[i,j]);

  end;

for i:=1 to n do begin

 p:=1;

  for j:=1 to m do begin

    p:=p*a[j,i];

  end;

  writeln(p);

  end;

end.

Объяснение:

m и n  можно менять на любые числа