program zad1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f1,f2:text;
n,m,i,j:integer;
a:array[0..101,0..101] of integer;
begin
assign(f1,'input.txt');
reset(f1);
readln(f1,n,m);
for i:=1 to n do
for j:=1 to m do
read(f1,a[i,j]);
close(f1);
for j:=2 to m do
a[1,j]:=a[1,j]+a[1,j-1];
for i:=2 to n do
a[i,1]:=a[i,1]+a[i-1,1];
for i:=2 to n do
for j:=2 to m do
if a[i-1,j]1) or (j>1) do
begin
writeln(f2,i,' ',j);
if (a[i-1,j]1) then i:=i-1 else
if (a[i-1,j]>=a[i,j-1])and(j>1) then j:=j-1;
end;
writeln(f2,i,' ',j);
writeln(f2,a[n,m]);
close(f2);
{ TODO -oUser -cConsole Main : Insert code here }
end.