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]<a[i,j-1] then
a[i,j]:=a[i,j]+a[i-1,j] else
a[i,j]:=a[i,j]+a[i,j-1];


{
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
readln;}

{шлях}
for i:=1 to n do a[i,0]:=maxint;
for j:=1 to m do a[0,j]:=maxint;
assign(f2,'output.txt');
rewrite(f2);

i:=n; j:=m;
while (i>1) or (j>1) do
begin
writeln(f2,i,' ',j);
if (a[i-1,j]<a[i,j-1])and(i>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.