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