{$codepage UTF8} VAR Frase:String; i,c:integer; BEGIN c:=0; Write('Ingrese una frase : '); readln(Frase); For i:=1 to Ord(Frase[0]) do if Frase[i] in ['a','e','i','o','u','A','E','I','O','U'] then c+=1; Writeln('La Frase ingresada tiene ',c,' vocales sin acento'); END.