记录编号	12666	评测结果	AWWWWW
题目名称	[NOIP 2002]过河卒	最终得分	16
用户昵称	Hamster	是否通过	未通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2009-09-16 21:54:57	内存使用	95.71 MiB

program guohezu;
var
  a:array[-5..5000,-5..5000] of longint;
  i,j,n,m,x,y:integer;

procedure init;
begin
  for i:=1 to n do
    for j:=1 to m do a[i,j]:=1;
  a[x,y]:=0;a[x+2,y-1]:=0;
  a[x+2,y+1]:=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-1,y+2]:=0;
  a[x-1,y-2]:=0;
end;

begin
  assign(input,'pj024.in');
  reset(input);
  assign(output,'pj024.out');
  rewrite(output);

  read(n,m,x,y);
  init;
  for i:=2 to n do
    for j:=2 to m do
      if a[i,j]<>0 then a[i,j]:=a[i-1,j]+a[i,j-1];
  write(a[n,m]+1);
  {writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do write(a[i,j],' ');
    writeln;
  end; }

  close(input);
  close(output);
end.