var
  x: array of int64;
  n, k: integer;
  temp: string;

begin
  repeat
    System.Console.Write('Введите кол-во ступенек: ');
    Temp := System.Console.ReadLine();
    if not TryStrToInt(Temp, N) then System.Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(Temp, N);
  repeat
    System.Console.Write('Кол-во ступенек, которое может перепрыгнуть за раз: ');
    Temp := System.Console.ReadLine();
    if not TryStrToInt(Temp, K) then System.Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(Temp, K);
  SetLength(X, N + 1);
  X[0] := 1;
  for var i := 1 to n do
  begin
    X[i] := 0;
    for var j := 1 to k do if i - j >= 0 then x[i] += x[i - j];
  end;
  System.Console.WriteLine('Ответ: ' + x[n]);
end.