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
DIM x,a,b AS LONG
INPUT x
a = 0
b = 0
WHILE (x DIV 100 > 0)
if (a < x MOD 100 DIV 10) THEN a=x
MOD 100 DIV 10;
if (b < x MOD 10) THEN b=x MOD 10;
x = x div 100;
WEND
PRINT a
PRINT b