Дан массив A(N), состоящий из случайных чисел от -2 до 2. Вывести сам массив и количество элементов, равных 0.- QBasic(Бейсик)

CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    a(i) = INT(RND * 5 - 2)
NEXT
FOR i = 1 TO n
    IF a(i) = 0 THEN k = k + 1
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "elementov = 0:"; k