Найти количество чётных цифр натурального числа n- QBasic(Бейсик)

INPUT "vvedite chislo ", a
WHILE a > 0
    IF (a MOD 10) MOD 2 = 0 THEN n = n + 1
    a = a \ 10
WEND
PRINT n