function mf(n, k: integer): integer;
var
  i, j: integer;
  s: array of integer;
begin
  SetLength(s, n + 1);
  s[0] := 1;
  s[1] := 1;
  if (k <= 1) or (n <= 0) then result := 1
  else
  begin
    i := 2;
    while i < (n + 1) do
    begin
      if (i - k) < 0 then j := 0 else j := i - k;
      while j < i do
      begin
        s[i] := s[i] + s[j];
        Inc(j);
      end;
      Inc(i);
    end;
    result := s[n];
  end;
end;

var
  n, k: integer;

begin
  Write('Введите число N: ');ReadLn(n);
  Write('Введите число K: ');ReadLn(k);
  WriteLn('Результат: ', mf(n, k));
end.