Вмассиве b1, найти количество чисел равных 3,5

Dim b(45)
for i=1 to 45
  print "b(";i;")= ";
  input b(i)
next i
for i=1 to 45
  if b(i)=3.5 then
    s=s+1
  end if
next i
print "kolichestvo: "; s