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

DEFDBL A-Z
   CLS
INPUT "Vvedite kol-vo chisel : ", n
   DIM B(n), S
  ' Заполним массив
   RANDOMIZE TIMER
   FOR i = 1 TO n
      B(i) = RND * 10 - 5
      PRINT USING " ##.##### "; B(i);
   NEXT: PRINT
  ' Найдём числа, сумму их квадратов и их количество.
   PRINT "Pologitelnye chisla:"
   FOR i = 1 TO n
      IF B(i) > 0 THEN
        k = k + 1
        PRINT USING " ##.##### "; B(i);
        S = S + B(i) * B(i)
      END IF
   NEXT: PRINT
   '  Среднее арифметическое
  IF k > 1 THEN S = S / k
  PRINT USING "Srednee arifm. ih kvadratov : ##.#####"; S