记录编号	1401	评测结果	AAAWWA
题目名称	[NOIP 2002]过河卒	最终得分	40
用户昵称	bly1991	是否通过	未通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2008-09-02 14:31:26	内存使用	0.00 MiB

program bly(input,output);
var
  a:array[-1..20,-1..20] of longint;
  hang,lie:integer;
  f1,f2:text;
  n,m,x,y:integer;
begin
  assign(f1,'pj024.in');
  reset(f1);
  read(f1,n,m,x,y);
  close(f1);

  a[x,y]:=-1; a[n,m]:=1;
  a[x+1,y+2]:=-1; a[x+2,y+1]:=-1; a[x+2,y-1]:=-1; a[x+1,y-2]:=-1;
  a[x-1,y-2]:=-1; a[x-2,y-1]:=-1; a[x-2,y+1]:=-1; a[x-1,y+2]:=-1;

  for hang:=n downto 0 do begin
    for lie:=m downto 0 do begin
      if a[hang,lie]<>-1 then begin
        if a[hang-1,lie]<>-1 then begin
          a[hang-1,lie]:=a[hang-1,lie]+a[hang,lie];
        end;
        if a[hang,lie-1]<>-1 then begin
          a[hang,lie-1]:=a[hang,lie-1]+a[hang,lie];
        end;
      end;
    end;
    a[lie-1,m]:=a[lie-1,m]+a[lie,m];
  end;

  assign(f2,'pj024.out');
  rewrite(f2);
  writeln(f2,a[0,0]);
  close(f2);
end.