constbak:array[1..4,1..2]of longint=((1,0),(-1,0),(0,-1),(0,1));//预先记录四种坐标改变的方法varmaxi,c,d,p,m,n,i,j,a,b:longint;f,init:array[0..501,0..501]of longint;procedure readin;//读入var i,j:longint;begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(init[i,j]);end;function max(
|