Program Tin_hoc;
Uses crt;
var s:string;
i,dem:integer;
Begin
clrscr;
dem:=0;
Write('Nhap xau: ');readln(s);
for i:= 1 to length(s) do if (s[i]='a') or (s[i]='e') or (s[i]='i') or (s[i]='o') or (s[i]='u') or (s[i]='y') then inc(dem);
Writeln('Xau vua nhap co ',dem,' nguyen am');
readln;
end.