Дан одномерный массив а(n). Найти номер третьего четного элемента массива- QBasic(Бейсик)

CLS
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    INPUT "zapolnite massiv"; a(i)
NEXT
DO
    j = j + 1
    IF (a(j) AND 1) = 0 THEN k = k + 1
LOOP UNTIL k = 3 OR j = n
IF k = 3 THEN
    PRINT "nomer tretego chetnogo jelementa:"; j
ELSE PRINT "net treh chetnyh jelementov"
END IF