program sase;
var i,n,m,j,max:integer;
    a:array[1..30,1..30] of integer;
    f,g:text;
begin
assign(f,'in.txt');
assign(g,'out.txt');
reset(f);
readln(f,n,m);
for i:=1 to n do begin
for j:=1 to m do
read(f,a[i,j]);
readln(f);
end;
close(f);
max:=abs(a[1,1]);
for i:= 1 to n do
for j:=1 to m do
if max<abs(a[i,j]) then max:=abs(a[i,j]);
rewrite(g);
writeln(g,max);
for i:= 1 to n do
for j:=1 to m do
if max=abs(a[i,j]) then writeln(g,i,' ',j);
close(g);
end.




readln;
end.