a:array[-4..51]of qword;

n,m,i,j:longint;

begin

readln(n,m);

a[1]:=1; a[0]:=1;

for i:=2 to n+1 do

for j:=1 to m do

a[i]:=a[i]+a[i-j];

write(a[n+1]);

end.

如果m=2的话就是斐波啦~