rem
CLS
INPUT "Введите текст",s$
FOR i=1 TO LEN(s$)
IF MID$(s$,i,1)="а" THEN k=k+1
IF MID$(s$,i,1)="е" THEN k=k+1
IF MID$(s$,i,1)="и" THEN k=k+1
IF MID$(s$,i,1)="о" THEN k=k+1
IF MID$(s$,i,1)="у" THEN k=k+1
IF MID$(s$,i,1)="э" THEN k=k+1
IF MID$(s$,i,1)="ю" THEN k=k+1
IF MID$(s$,i,1)="я" THEN k=k+1
NEXT i
PRINT "кол-во гласных букв в тексте="; k
END