Const
 Vowel:Set of Char=['А','Е','И','О','У','Ы','Э','Ю','Я'];

Var
 f:Text;
 S:String;
 i,N:Byte;

Begin
 Assign(f,'Tanja.txt');
 Rewrite(f);
 S:='В ЛЕСУ РОДИЛАСЬ ЕЛОЧКА';
 Writeln(f,S);
 Close(f);
 Reset(f);
 Readln(f,S);
 Close(f);
 N:=0;
 for i:=1 to Length(S) do
  if (S[i] in Vowel) then Inc(N);
 Writeln(S);
 Writeln(N,' гласных');
 Readln
End.