Заменить нечетные элементы одномерного массива нулём. Задать случайным образом из промежутка [-9;9] одномерный массив A(N) -QBasic(Бейсик)

PRINT "Задание 2: "
FOR I = 1 TO N
         IF ABS(A(I)) MOD 2 = 1 THEN A(I) = 0
         PRINT A(I);
NEXT I

CLS
  INPUT "Kol-vo elementov :", N
  DIM A(N) AS INTEGER
  RANDOMIZE TIMER
FOR i = 1 TO N
    A(i) = RND * 18 - 9
NEXT
FOR i = 1 TO N
    IF (A(i) AND 1) = 1 THEN A(i) = 0
NEXT
FOR i = 1 TO N
    PRINT A(i);
NEXT