PRINT
PRINT "素因数たちの和が２０になる３桁の数たち"
PRINT "  （ ただし：例えば８の素因数たちは ２ が３個とします ）"
PRINT
DIM T(20)
FOR i=100 TO 1000
   LET R=i
   CALL SOIN(R,Q,T) 
   LET X=0
   FOR j=1 TO Q
      LET X=X+T(j)
   NEXT j
   IF X=20 THEN
      PRINT i;":";" ";
      FOR z=1 TO Q
         PRINT T(z);
      NEXT z
      PRINT
   END IF
NEXT i
PRINT
END

EXTERNAL SUB SOIN(n,C,D())
LET C=1
LET f=2
DO UNTIL n=1
   DO WHILE MOD(n,f)=0
      LET D(C)=f
      LET n=n/f
      LET C=C+1
   LOOP
   LET f=f+1
LOOP
LET C=C-1
END SUB