program xi;

type

bc=record

date:integer;

x,y:integer;

end;

var

num:array[0..300000] of bc;

k:longint;

i,j,c,r:integer;

long:array[0..500,0..500] of integer;

max:array[0..500,0..500] of longint;

procedure int;

begin

read(r,c);

k:=0;

for i:=1 to r do

for j:=1 to c do

begin

max:=1;

k:=k+1;

read(long);

num[k].date:=long; num[k].x:=i; num[k].y:=j;

end;

end;

PROcedure pai(s,t:longint);

var

i,j:longint; p:bc;

mid:integer;

begin

i:=s; j:=t; mid:=num[(i+j) div 2].date;

repeat

while (num[i].datemid) do dec(j);

if i