PRINT
PRINT "前の数が偶数なら２で割り、 奇数なら３倍して１を足す。"
PRINT "  □  □  □  □  □ ・ ・ ・ ・ □  □  □  16  8  4  2  1  4  2  1 ・ ・ ・ ・  に収束する。"
PRINT
INPUT PROMPT "自然数を入力してください。  ":n
PRINT
PRINT n;
DO WHILE n>2
   IF MOD(n,2)=0 THEN
      LET n=n/2
      PRINT n;
   ELSE
      LET n=3*n+1
      PRINT n;
   END IF
LOOP
PRINT " 4  2  1  ・ ・ ・ ・"
PRINT
END