const
  n = 7;
  m = 5;

var
  arr: array [1..n, 1..m] of integer;
  pr: array[1..m] of longint;
  i, j: byte;

begin
  WriteLn('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      arr[i, j] := Random(51) - 25;
      Write(arr[i, j]:5);
    end;
    WriteLn;
  end;

  WriteLn('Произведения столбцов:');
  for j := 1 to m do
  begin
    pr[j] := 1;
    for i := 1 to n do pr[j] := pr[j] * arr[i, j];
    Write(pr[j], #32);
  end;
  WriteLn;
end.