Найти номера всех нечетных отрицательных кратных 5 элементов последовательности — QBasic(Бейсик)

CLS
INPUT "Razmernost massiva="; n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 200) - 100
NEXT i
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
PRINT "Nomera nechetnih otricatelnih kratnih 5 elementov"
FOR i = 1 TO n
    b = i / 2: c = i \ 2
    d = a(i) / 5: e = a(i) \ 5
    IF (a(i) < 0) AND (b <> c) AND (d = e) THEN PRINT i;
NEXT i

CLS
INPUT "Razmernost massiva="; n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 200) - 100
NEXT i
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
PRINT "Nomera nechetnih otricatelnih kratnih 5 elementov"
FOR i = 1 TO n
    IF a(i) < 0 AND a(i) MOD 2 <> 0 AND a(i) MOD 5 = 0 THEN PRINT i;
NEXT i