DATA  а,е,ё,и,о,у,ы,э,ю,я
DIM a$(10)
FOR i = 1 TO 10
READ a$(i)
NEXT
INPUT text$
FOR i = 1 TO LEN(text$)
 FOR j = 1 TO 10
 IF MID$(text$, i, 1) = a$(j) THEN k = k + 1
 NEXT
 NEXT
 PRINT k/LEN(text$)*100