Найти сумму положительных элементов массива, значение которых меньше 10 - QBasic

Формулировка задачи:

1) Дан массив целых чисел , состоящий из 15 элементов. Найти: a) Сумму положительных элементов, значение которых меньше 10 б) Вывести индексы всех элементов, значение которых кратны 3 и 5 2) Определить, есть ли пара соседних элементов с суммой, равной заданному числу

Решение задачи: «Найти сумму положительных элементов массива, значение которых меньше 10»

Листинг программы

N=15
DIM A(N)
FOR I=1 TO N
  INPUT A(I)
IF A(I)>0 AND A(I)<10 THEN RES1=RES1+1
IF A(I) MOD 3=0 AND A(I) MOD(5)=0 THEN RES2$=RES2$+" "+STR$(I)
NEXT
PRINT RES1
PRINT RES2
INPUT "Введите заданное число";B
FOR I=1 TO N-1
  IF A(I)+A(I+1)=B THEN RES3=RES3+1
NEXT
IF RES3>0 THEN PRINT "Есть" ELSE PRINT "Нет"

Объяснение кода листинга программы

Установка значения переменной N равным 15.
Создание массива A размером N.
Заполнение массива A значениями, которые вводятся пользователем.
Проверка каждого элемента массива A на соответствие условиям: положительное число и значение меньше 10. Если элемент соответствует условиям, то к переменной RES1 прибавляется единица.
Проверка каждого элемента массива A на соответствие условиям: число, которое делится на 3 и на 5. Если элемент соответствует условиям, то к переменной RES2 прибавляется строка с числом.
Вывод значения переменной RES1.
Вывод значения переменной RES2.
Ввод значения переменной B с клавиатуры.
Проверка каждого элемента массива A (за исключением последнего элемента) на соответствие условию: сумма текущего элемента и следующего элемента равна B. Если условие выполняется, то к переменной RES3 прибавляется единица.
Вывод значения переменной RES3. Если RES3 больше 0, то выводится Есть, иначе выводится Нет.