记录编号	7621	评测结果	AAAAAAAAAA
题目名称	地铁重组	最终得分	100
用户昵称	name:弓虽	是否通过	通过
代码语言	Pascal	运行时间	0.014 s
提交时间	2008-11-10 20:25:54	内存使用	1.07 MiB

program subway(input,output);
var
 i,j,k:longint;
 n,p:longint;
 f:array  [0..500,-1..500]  of longint;

function min(a,b:longint):longint;
 begin
 if a<b then min:=a else min:=b;
 end;

begin
  assign(input,'subway.in');
  assign(output,'subway.out');
  reset(input);
  rewrite(output);
  readln(n,p);
  f[n,0]:=1;

    for i:=n-1 downto 0 do
     for j:=min(p,n-i) downto 0 do

  f[i,j]:=(f[i+1,j-1]+f[i,j+1]) and 4095;

  writeln(f[0,0]);
  close(input);
  close(output);
end.