---

program Task4;
var
  a: array[1..50, 1..50] of integer;
  i, j, m, n, min: integer;
begin
  write('Сколько строк? ');
  readln(m);
  write('Сколько столбцов? ');
  readln(n);

  // Ввод элементов матрицы
  for i := 1 to m do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, '] = ');
      readln(a[i, j]);
    end;

  // Поиск минимума
  min := a[1, 1];
  for i := 1 to m do
    for j := 1 to n do
    begin
      if a[i, j] < min then
        min := a[i, j];
    end;

  writeln('Наименьший элемент массива: ', min);
end.

program Task5;
var
  a: array[1..50, 1..50] of integer;
  i, j, m, n: integer;
  p: longint;
begin
  write('Сколько строк? ');
  readln(m);
  write('Сколько столбцов? ');
  readln(n);

  // Ввод элементов матрицы
  for i := 1 to m do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, '] = ');
      readln(a[i, j]);
    end;

  // Вычисление произведения для каждой строки
  for i := 1 to m do
  begin
    p := 1;
    for j := 1 to n do
      p := p * a[i, j];
    writeln('Произведение элементов в ', i, ' строке равно ', p);
  end;
end.