Учившийся на одни 5-ки Антон вдруг начал терять интерес к учебе. У него появились какие-то дела, новые друзья. Они постоянно встречались, слушали музыку, о чем-то говорили.

Const
  m = 6;
  n = 4;

var
  i, j: integer;
  a: array[1..m, 1..n] of integer;
  b: array[1..n] of longint;
  p: longint;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln('Результирующий массив');
  for j := 1 to n do
  begin
    p := 1;
    for i := 1 to m do p := p * a[i, j];
    b[j] := p;
    write(b[j], ' ')
  end;
end.

Тестовый пример:

Исходный массив
 -22 -23 -14  16
 -17  42 -13  19
 -35   9 -47  -7
  23  -9  19  25
   3  -7 -31  43
  15  42  40   0
Результирующий массив
-13548150 -23004324 201532240 0