Program to print the Numeric Series 3, 10, 5, 16, 8 (Hill-stone Number)

Using FOR...NEXT

CLS
n = 3
FOR i = 1 TO 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

     ELSE
          n = n * 3 + 1

     END IF
NEXT i
END

Using WHILE...WEND

CLS
n = 3
i = 1
WHILE i <= 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

     ELSE
          n = n * 3 + 1

     END IF
     i = i + 1
WEND
END

Using DO...LOOP

CLS
n = 3
i = 1
DO WHILE i <= 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

     ELSE
          n = n * 3 + 1

     END IF
     i = i + 1
LOOP
END