DIM n, a, b, i AS INTEGER INPUT n a = 0 WHILE n > 0 IF n MOD 2 = 0 THEN a = a + 1 b = n n = n DIV 10 END IF END WHILE PRINT a PRINT b