Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию - VB

P = 1

FOR i = 1 TO n

 IF 1 < A(i) AND A(i) < 5 THEN 
 kol = kol + 1
 P = P * A(i)
 END IF
NEXT

IF kol = 0 THEN
 PRING "Среднее Геометрическое не существует"
ELSE
 SG = P ^ (1 / kol)
 PRINT "SG ="; SG
END IF