var
f, q: Text;
i: integer;
s: string;
begin
Assign(f, 'in.txt');
Reset(f);
Assign(q, 'out.txt');
rewrite(q);
while not EOF(f) do
begin
readln(f, s);
i := 1;
while (i <= length(s)) do<br> begin
if (upcase(s[i]) in ['А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Ю', 'Я']) then
delete(s, i, 1);
inc(i);
end;
writeln(q, s);
end;
close(f); close(q);
end.