Дан ряд чисел b1,b2….bn. Выбрать из них положительные числа и найти среднее арифметическое квадратов этих чисел- QBasic(Бейсик)

CLS
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite element"; i
    INPUT a(i)
NEXT
FOR i = 1 TO n
    IF a(i) > 0 THEN s = s + a(i) ^ 2: k = k + 1
NEXT
sr = s / k
PRINT "sr ="; sr