uses crt;
var a: array[0..100, 0..100] of longint;
    i, j, n, m: longint;
    
function check(u, v: longint):boolean;
var i, j: longint;
begin
    for i:=u - 1 to u + 1 do
        for j:=v - 1 to v + 1 do
            if (i <> u) or (j <> v) then
                if a[i][j] < a[u][v] then
                    exit(false);
    exit(true);
end;

begin
    clrscr;
    readln(n, m);
    for i:=1 to n do 
        for j:=1 to m do 
            read(a[i][j]);

    
    for i:=1 to n do
        begin
            a[i][0]:=32000;
            a[i][m + 1]:=32000;
        end;
    for i:=1 to m do
        begin
            a[0][i]:=32000;
            a[n + 1][i]:=32000;
        end;
    
    for i:=1 to n do
        for j:=1 to m do
            if check(i, j) then
                writeln('(', i, ', ', j, ')');
readln;
end.