noip-一道關於數列的題目，Pascal，求大神幫忙

一道關於數列的題目，Pascal，求大神幫忙

一道關於數列的題目，我用了Pascal語言，但運行結果總是一個定值，毫無變化，我懷疑主程序的循環有問題，但又找不出來，求大神幫忙找錯，謝謝了。
數列

（sequence.pas/c/cpp）

【問題描述】
給定一個正整數k(3≤k≤15),把所有k的方冪及所有有限個互不相等的k的方冪之和構成一個遞增的序列，例如，當k=3時，這個序列是：
1，3，4，9，10，12，13，…
（該序列實際上就是：30，31，30+31，32，30+32，31+32，30+31+32，…）
請你求出這個序列的第N項的值（用10進制數表示）。
例如，對於k=3，N=100，正確答案應該是981。
【輸入文件】
輸入文件sequence.in 只有1行，為2個正整數，用一個空格隔開：
k N
（k、N的含義與上述的問題描述一致，且3≤k≤15，10≤N≤1000）。
【輸出文件】
輸出文件sequence.out 為計算結果，是一個正整數（在所有的測試數據中，結果均不超過2.1*109）。（整數前不要有空格和其他符號）。
【輸入樣例】
3 100
【輸出樣例】
981
var i,i2,g,sum,n:longint;
k:shortint;
bit:array[1..100]of shortint;//記錄數的二次方的每個數位
function fang(a,b:longint):longint; //求a的b次方
var a2:longint;
begin
a2:=a;
for i:=1 to b do
a:=a*a2;
exit(a);
end;
procedure er(c:longint); //求c的二進制(倒序的)
begin
g:=0;//record times
while c<>0 do
begin
inc(g);
bit[g]:=c mod 2;
c:=c div 2;
end;
end;
begin
read(k,n);
er(n);
sum:=1;
i2:=0;
for i:=g downto 1 do//倒序處理bit
begin
inc(i2);
if bit[i]=1 then begin
if i2=1 then continue;//已將sum賦值1，所以無需計算0次方了
sum:=fang(k,i2)+sum;
end;
end;
write(sum);
end.

最佳回答：

http://blog.csdn.net/wxf1995/article/details/5937988