var ch,res:string;i:integer;
Begin
  Repeat
    writeln('CH: ');
    readln(ch);
  until(ch<>'');
  res:='';
  For i:=1 to length(ch) do
  Begin
    ch[i]:=upcase(ch[i]);
    if ch[i] in['A','E','I','O','U','Y'] then res:=res+ch[i];
  End;
    writeln('CH: ',ch);
    writeln('Res: ',res);
End.