program pr_1;
uses crt;
var a,b:set of char;
    c:char;

begin
{repeat}
clrscr;
a:=[];
b:=['a','e','i','o','u','y'];
repeat
read(c);
if (c<>' ') and (c<>',') then
  a:=a+[c];
until c='.';
writeln;
for c:='a' to 'z' do
if not(c in a) and not(c in b) then write(c);
writeln;
{writeln('repeat?   ');
until readkey='n';}
readln;
readln;

end.
