DIM X, L, M AS INTEGER INPUT X L = 1 M = 0 WHILE X > 0 M = M + 1 IF X MOD 2 <> 0 THEN L = L * (X MOD 8) END IF X = X \ 8 WEND PRINT L PRINT M