计算前若干个自然数之和，直到和数超过10000为止。 store 0 to n,s do while .T. n=n+1 s=s+n if s＞10000 else endif enddo n,s

【参考答案】

exit; loop