Вычислить произведение всех положительных чисел меньше 20 — Basic(Бейсик)

CLS
INPUT "N=", n
DIM a(n)
FOR i = 1 TO n
PRINT "A("; i; ")=";
INPUT a(i)
NEXT i
P = 1
FOR i = 1 TO n
IF a(i) > 0 AND a(i) < 20 THEN P = P * a(i)
NEXT i
PRINT P