FUNCTION f(n)
   IF n=1 THEN
      LET f=1/2
   ELSE
      LET f=n*f(n-1)/(n^2-1)
   END IF
END FUNCTION

LET m=0
FOR k=1 TO 100
   LET m=m+f(k)
   PRINT k;": ";f(k)
   PRINT "       Σ=";m
NEXT k
PRINT
PRINT "以上、 数列を１００項まで出力しました。"
PRINT "Σ= は、その項までの和を示しています。"
PRINT
END