怎么改 谢谢！

设等比数列：1，3，9，27，…。求使得此数列的前n项之和小于9876543的最大的自然数n。

源程序文件位于：C:\StdHNCRE\2500\program\1.PRG

set talk off
clear
a=1
s=0
for n=1 to 100
s=s*a
if s<9876543
exit
endif
a=3*a
endfor
? n-1
set talk on
return