var a:array [1..100,1..100] of double;
    x:array [1..100,1..2] of integer;
    b,c:integer;
procedure linemax(k:integer);
var i:integer;
begin
    for i:=1 to c do
        if a[i,c]>0 then
            begin
                x[k,1]:=k;
                x[k,2]:=i;
            end;
end;
procedure output(k:integer);
var i:integer;
begin
    for i:=1 to k do
        write(x[k,1],' ',x[k,2],' ');
end;
procedure readmatrix(n,m:integer);
var i,j:integer;
begin
    for i:=1 to n do
        begin
        for j:=1 to m do
            read(a[i,j]);
        linemax(i);
        end;
    output(b);
end;
begin
    readln(b,c);
    readmatrix(b,c);
end.