Заполнить массив d(15) ручным и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное

Язык QBasic 4.5

CLS
DIM d(15)
PRINT "Введите элементы массива "
N = 0
FOR I = 1 TO 15
INPUT d(I)
IF (d(I)< >0) AND (d(I) MOD 7) = 0 THEN N = N + 1
NEXT I
PRINT "Количество кратных 7 =", N
END