program ljlf;

const

max=100000;

var

a:array[-10..20,-10..20] of longint;

n,m,hx,hy,i,j:integer;

k,g:longint;

procedure work;

begin

fillchar(a,sizeof(a),0);

readln(n,m,hx,hy);

a[hx,hy]:=max;

a[hx-2,hy-1]:=max;

a[hx-1,hy-2]:=max;

a[hx+1,hy-2]:=max;

a[hx+2,hy-1]:=max;

a[hx-2,hy+1]:=max;

a[hx-1,hy+2]:=max;

a[hx+1,hy+2]:=max;

a[hx+2,hy+1]:=max;

for i:=1 to n do begin

if amax then a:=1; end;

for i:=1 to m do begin

if amax then a[0,i]:=1; end;

for i:=1 to n do

begin

for j:=1 to n do

begin

if amax then

begin

if a=max then k:=0 else k:=a;

if a=max then g:=0 else g:=a;

a:=k+g;

end

else a:=0;

end;

end;

writeln(a[n,m]);

end;

begin

work;

end.

这是我的程序

高手看看有什么特殊情况没有考虑的。