Заполнить массив D (15) ручным способом и посчитать в нем количество…

Язык QBasic 4,5 CLSDIM d (15) PRINT «Введите элементы массива "N=0FOR I=1 TO 15INPUT d (I) IF (d (I) < >0) AND (d (I) MOD 7)=0 THEN N=N+1NEXT IPRINT «Количество кратных 7=", NEND