program Sir;
var
S: string;
i, vocale: integer;
//a, e, i, o, u
begin
readln(S);
vocale := 0;
for i := 1 to length(s) do
begin
if pos('a', s, i)=i then
vocale := vocale + 1
else if pos('e', s, i)=i then
vocale := vocale + 1
else if pos('i', s, i)=i then
vocale := vocale + 1
else if pos('o', s, i)=i then
vocale := vocale + 1
else if pos('u', s, i)=i then
vocale := vocale + 1;
end;
writeln('In : ' + s);
writeln('Sunt ' + vocale + ' vocale');
end.
