Напишите функцию ,которая возвращает количество гласных в строке

Input a$
for i=1 to len(a$)
  g$=mid$(a$,i,1)
  if g$="а" or g$="у" or g$="о" or g$="ы"   or g$="и" or g$="э" or g$="я" or g$="ю" or g$="ё" or g$="е" then s=s+1
next i
print s