记录编号	84896	评测结果	AAAAAAAAAA
题目名称	[NOIP 2002]过河卒	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	0.520 s
提交时间	2013-12-21 17:23:36	内存使用	0.17 MiB

var
n,m,x,y:integer;
z:longint;
a:array[-2..22,-2..22]of char;
procedure v(i,j:integer);
begin
if a[i,j]<>'0' then
begin if (i=n)and(j=m)then z:=z+1
else begin if (i<n) then v(i+1,j);if (j<m) then v(i,j+1);end;end;end;
begin
assign(input,'pj024.in');assign(output,'pj024.out');
reset(input);rewrite(output);
read(n,m,x,y);
a[x,y]:='0';
a[x-2,y-1]:='0';
a[x-1,y-2]:='0';
a[x+1,y-2]:='0';
a[x+2,y-1]:='0';
a[x+2,y+1]:='0';
a[x+1,y+2]:='0';
a[x-1,y+2]:='0';
a[x-2,y+1]:='0';
v(0,0);
writeln(z);
close(input);
close(output);
end.