type huasheng=record

hang:integer;

lie:integer;

geshu:integer;

end;

var

x:huasheng;

a:array[1..10000] of huasheng;

b:array[1..10000] of huasheng;

c,d,e,f,g,h,i,j,k,l,sum,n,time,t,t1,o,p,y,z,c1,c2:integer;

begin

read(y,z,t);

o:=y*z;

p:=1;

for i:=1 to y do

for j:=1 to z do

begin

read(a[p].geshu);

a[p].hang:=i;

a[p].lie:=j;

p:=p+1;

end;

for i:=1 to o-1 do

for j:=i+1 to o do

if a[i].geshu