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