CLS a = 7 FOR i = 1 TO 10 PRINT a; IF a MOD 2 = 0 THEN a = a / 2 ELSE a = a * 3 + 1 END IF NEXT i END