{* Задача10 *}

REM basic

' Определить сколько гласных букв в переменной A$


CLS
INPUT A$
DATA "а","А","е","Е","и","И","о","О","у","У","ы","Ы"
For i = 1 To 12
   READ B$
        For j = 1 To LEN(A$)
                tmp$ = Mid$(A$, j, 1)
                If tmp$ = B$ Then k = k + 1
        Next j
Next i
PRINT k
End