问题B:　步步高升（Step by Step）
问题描述：
　　春节的时候TENSHI去逛花市。她来到一个卖盆竹的摊位，看到一盆叫做“步步高升”的盆竹。“步步高升，步步高升……”学习就是要一步一步来，不能急，要打好基础。在稳固的基础上才谈得上步步高升！TENSHI若有所思。她看到这盆东西好意头，于是想买下。谁知一问价钱，“不贵不贵，才２ＸＸＲＭＢ。”TENSHI差点没昏倒，囊中羞涩嘛。但是TENSHI还是很想买下来，于是她就在一旁观察。观察了一段时间，她发现这个卖盆竹的人和别人杀价很有规律。设此人第i次报价为Wi元，那么他第i+1次报的价格为Wi－A或Wi －B。到了最后，TENSHI以Z元成交，高高兴兴的回家去了。
任　务　：求TENSHI把盆竹的价格由W1元杀到Z元的方法总数。
输入格式：输入文件第一行有两个正整数W1和Z。第二行有两个正整
　　　　　数A和B。它们满足条件：
　　　　10 ≤ W1 ≤106，1 ≤ Z ≤ 106 ，Z < W1
　　　　2 ≤ A 、B ≤ 10000，A≠B
输出格式：将方法总数输出，只有一行。
　　　　　注意：结果不超过MAXLONGINT
输出的K总是0……

应该这样做：
var w1,z,a,b,t,n,i,k:longint;
f:array[1..10000] of longint;
begin
readln(w1,z);
readln(a,b);
if a>b then begin t:=b; b:=a; a:=t; end;
fillchar(f,sizeof(f),0);
for i:=1 to b do
if i mod a=0 then f[i]:=f[i]+1;
f[b]:=f[b]+1;
for k:=b+1 to w1-z do
f[k]:=f[k-a]+f[k-b];
writeln(f[w1-z]);
end.