СРОЧНО
гусеница может двигаться по ветке длины N только вперед. Длина шага целое число не более К. Сколько различных вариантов передвижения, при которых гусеница пройдет по ветке от начала до конца.

program fordimon;var n,k,i,j:integer;s:array[1..10] of integer;beginassign(input,'task2.txt');  reset(input);  readln(n,k); close(input);assign(output,'task2.out');  rewrite(output);for i:=1 to n doif i<=k then s[i]:=1 else s[i]:=0;for i:=2 to n dobeginj:=i-1;while (j>0) and (j>=i-k) dobegins[i]:=s[i]+s[j];j:=j-1endend;write(s[n]);close(output)end.