PRINT
PRINT "約数の数"
PRINT "     a^X * b^Y * c^Z （ a,b,c は素数 ）で表せる数の"
PRINT "   約数の数は、(X+1)*(Y+1)*(Z+1) です。"
PRINT
DIM S(100)
FOR i=1 TO 100
   LET S(i)=1
   LET n=i
   LET f=2
   DO UNTIL n=1
      LET C=0
      DO WHILE MOD(n,f)=0
         LET C=C+1
         LET n=n/f
      LOOP
      LET S(i)=S(i)*(C+1)
      LET f=f+1
   LOOP
   PRINT USING "###":i;
   PRINT ": ";S(i)
NEXT i
END