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