type xx=record x,y,st:longint; end; var n,m,i,j,x1,x2,x0,y1,y2,y0,h,r,k :longint; a :array[0..100,0..100]of integer; mark :array[0..100,0..100]of boolean; q :array[0..10000]of xx; u :array[1..4]of integer=(1,-1,0,0); v :array[1..4]of integer=(0,0,1,-1); procedure bfs; begin h:=0;r:=1;q[1].x:=x1;q[1].y:=y1;q[1].st:=0; while h