DIM n, s, a AS INTEGER INPUT n s = 0 a = 0 WHILE n > 1 s = s + 1 a = 10*n DIV 10 MOD 10 n = n DIV 10 END WHILE PRINT s PRINT a