记录编号	7588	评测结果	AAAAAAAAAA
题目名称	地铁重组	最终得分	100
用户昵称	lc	是否通过	通过
代码语言	Pascal	运行时间	0.027 s
提交时间	2008-11-10 18:31:36	内存使用	0.69 MiB

program e1;
 const
   maxp=4095;
 var
     i,j,n,p:longint;
     f:array[0..500,-1..300] 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[0,0]:=1;
 for i:=1 to n do
  for j:=min(p,i) downto 0 do
  f[i,j]:=(f[i-1,j-1]+f[i,j+1]) and maxp;
 writeln(f[n,0]);
 close(input); close(output);
end.