DIM X, L, M AS INTEGER INPUT X L = 0 M = 0 WHILE X > 0 M = M + 1 IF X MOD 10 <> 0 THEN L = L + 1 ENDIF X = X \ 10 WEND PRINT M PRINT L