program mn;
uses crt;
var s,g:string;
a:array[1..100]of string;
n,i:integer;
BEGIN
ClrScr;
Write('TExt:');readln(s);
Writeln;
i:=1;
while i<=length(s) do
begin
g:='';
while (s[i]<>' ')and(i<=length(s))do
begin
g:=g+s[i];
inc(i);
end;
inc(n);a[n]:=g;
inc(i);
end;
for i:=1 to n do
begin
s:=a[i];
if (s[1]<>'e')and(s[1]<>'u')and(s[1]<>'i')and(s[1]<>'o')and(s[1]<>'a')
then writeln(s);
end;
readln;
END.