{* Задача 184 *}

Unit ZADACH184;
Interface
Implementation
Begin
 writeln('Вычислить произведение чисел в каждом столбце. n<=10, m<=10.');
End.

Program example_2;

Uses zadach184.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  n = 5;
  m = 3;
Var {* Объявление переменных *}
  a : Array [1..n, 1..m] Of real;
  p : Array [1..n] Of real;
  i : integer;
  j : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    p[i] := 1;
  writeln('Vvedite ', n, 'x', m, ' lyubyh chisel:');
  For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      read(a[i, j]);
      p[j] := p[j] * a[i, j];
    End;
  writeln('Proizvedenie chisel v kajdom stolbce:');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    write(p[i] : 4 : 1, ' ');
End.