Program mn_6;
uses crt;
type  mn= set of char;
const glas= ['а','е','и','о','у','ы','э','ю','я'];
var a:string;
k,i,s:integer;
begin
clrscr;
writeln('введите текст');
readln(a);
s:=length(a);
i:=0;
if a[s]<>'.' then a:=a+'.';
repeat
begin
inc(i);
if a[i] in glas then
k:=k+1;
end;
until a[i]='.';
writeln (k);
readln;
end.