program liu;
const
a:array[1..3,1..2] of byte=(1,5,2,4,3,0);
tru:array[1..3,1..2] of byte =(1,4,2,5,3,0);
type
arr:array[1..3,1..2] of byte;
var
s:array[1..124] of string;
c,x,y:byte;
lu:string;
lum:integer;
procedure try(b:arr;n,m:byte );
var
x1,z,y1,i,j,k:byte;
a1:arr;
lu1:string;
begin
for j:=1 to 3 do
for k:=1 to 2 do if
btru then break
else if (j=3) and (k=2)
then writeln('ok');
for i:=1 to 4 do
begin
fillchar(lu1,sizeof(lu1),0);
for j:=1 to 3 do
for k:=1 to 2 do a1:=b;
x1:=n;y1:=m;
case i of
1:if (m-1>0) then y1:=m-1;
2:if (m+10) then x1:=n-1;
4:if (n+1