记录编号	19685	评测结果	AAAAAAAAAA
题目名称	核电站问题	最终得分	100
用户昵称	nick09	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2010-10-14 22:10:20	内存使用	0.11 MiB

program nucle;
var
 f:array[-5..50]of extended;
 n,m,i:integer;
 q:text;
Begin
assign(q,'nucle.in');reset(q);

readln(q,n,m);close(q);
fillchar(f,sizeof(f),0);
f[-1]:=1;f[0]:=1;
for i:=1 to n do
   f[i]:=2*f[i-1]-f[i-m-1];
assign(q,'nucle.out');rewrite(q);

writeln(q,f[n]:0:0);close(q);
end.