Type

Node=Record

x,y,h:longint;

End;

Var

n,m,ans,k:longint;

Get:array[1..250000]of Node;

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

a:array[1..500,1..500]of longint;

Procedure Init;

Var

i,j:longint;

Begin

Fillchar(a,sizeof(a),0);

Fillchar(d,sizeof(d),0);

Fillchar(Get,sizeof(Get),0);

Ans:=0; k:=0;

Readln(n,m);

For i:=1 to n do

Begin

For j:=1 to m do

Begin

Read(a);

Inc(k);

Get[k].x:=i; Get[k].y:=j;

Get[k].h:=a;

End;

Readln;

End;

End;

Procedure Qsort(l,r:longint);

Var

i,j,x,y:longint;

Begin

i:=l; j:=r;

x:=Get[Random(r-l+1)+l].h;

Repeat

While (Get[i].h=l)Do Dec(j);

IF ij;

IF j>l then Qsort(l,j);

IF iy then

Exit(x)

Else

Exit(y);

End;

Procedure Main;

Var

i,j:longint;

x,y:longint;

Begin

Randomize;

Qsort(1,k);

For i:=1 to k do

Begin

d[Get[i].x,Get[i].y]:=1;

x:=Get[i].x; y:=Get[i].y+1;

IF ya[x,y])And(d[Get[i].x,Get[i].y]=1 then

IF (Get[i].h>a[x,y])And(d[Get[i].x,Get[i].y]a[x,y])And(d[Get[i].x,Get[i].y]