---

program 4;
var
  a: array[1..50, 1..50] of integer;
  i, j, m, n, min, K: 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]; 
  K := 1;
  
  for i := 1 to m do
    for j := 1 to n do
      if a[i, j] < min then
      begin
        min := a[i, j]; 
        K := i;
      end;

  WriteLn('Наименьшее число ', min, ' находится в ', K, ' строке');
end.