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

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+1next iprint s