Имеется массив А из N произвольных чисел — А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, решающую задачу: Вычислить произведение всех положительных чисел меньше 10. — QBasic(Бейсик)

Например, если А = { 2, 24, –3, 6, 5, –2, 33}, результат: 2*6*5=60

INPUT "vvedite kolichestvo elementov ", n
DIM a(n)
FOR i = 1 TO n
    INPUT "vvedite ocherednoy element ", a(i)
NEXT
p = 1
FOR i = 1 TO n
    IF a(i) > 0 AND a(i) < 10 THEN p = p * a(i)
NEXT
PRINT p