PRINT "＜ 初項１公差１ の 等差数列 の 重心 ＞"
PRINT "項数が１万以下の場合で、"
PRINT "ある項の前の総和と後の総和が等しくなる場合は、"
PRINT "次のような場合です。"
PRINT 
LET m=0
FOR n=3 TO 10000
   LET k=SQR(n*(n+1)/2)
   IF k>0 AND k=INT(k) AND k<n THEN
      LET m=m+1
      PRINT m;":   ";
      PRINT "1 + … +";k-1;"=";k+1;"+ … +";n;"  （ =";(k-1)*k/2;"）"
      END IF
NEXT n
PRINT
PRINT "このプログラムは終了しました。"
END