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

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