Подсчитать количество нулевых элементов в массиве - QBasic

REM Дан числовой массив В(45). Подсчитать количество нулевых элементов в массиве.
CONST n = 45
DIM b(1 TO n) AS INTEGER
DIM i AS INTEGER, zeros AS INTEGER
  FOR i = 1 TO n
    INPUT b(i)
  NEXT
  zeros = 0
  FOR i = 1 TO n
    IF b(i) = 0 THEN zeros = zeros + 1
  NEXT
  PRINT zeros
END