program  matrix_nyeregpont;
var t:array[1..4,1..4] of real;
    max:real;
    i,j,k,l:byte;
    ny:boolean;
begin
    randomize;
    for i:=1 to 4 do
     begin
     for j:=1 to 4 do
      begin
       t[i,j]:=random(100);
       write(t[i,j]:5:0);
      end;
     writeln;
     end;

    for i:=1 to 4 do
     begin
      max:=t[i,1];
      for j:=2 to 4 do
        if max< t[i,j] then
                       begin
                        max:=t[i,j];
                        k:=i;
                        l:=j
                       end;
      ny:=true;
      for j:=1 to 4 do
       if max>t[j,l] then ny:=false;
      if ny then writeln(k:3,l:3);
     end;
     readln
end.