我有试了,还是不行啊
我的是Win 2000 Server SP4

在我本机系统上是可以的(XP SP2)
错误:k:=ln(l(r-l+1)/ln(2));
改为:k:=ln(r-l+1)/ln(2);