记录编号	7521	评测结果	ATAAAAAATT
题目名称	地铁重组	最终得分	70
用户昵称	bing	是否通过	未通过
代码语言	Pascal	运行时间	3.604 s
提交时间	2008-11-10 16:42:55	内存使用	0.69 MiB

program bing;
var
 f1,f2:text;
 n,p:longint;
 f:array[0..500,1..300] of longint;
procedure init;
var
 i,j:longint;
begin
 assign(f1,'subway.in');reset(f1);
 assign(f2,'subway.out');rewrite(f2);
 readln(f1,n,p);
 fillchar(f,sizeof(f),0);
 for i:=1 to n do f[i,1]:=1;
 for i:=1 to p do begin f[1,i]:=1;f[0,i]:=1;end;
end;
procedure nb;
var
 i,j,k:longint;
begin
 for i:=2 to n do
 for j:=2 to p do
 begin
  for k:=0 to i-1 do
  f[i,j]:=(f[i,j]+f[k,j-1]*f[i-k-1,j])mod 4096;
 end;
end;
begin
 init;
 nb;
 write(f2,f[n,p]);
 close(f1);close(f2);
end.