var s,l:string;
t:text;
i,b:integer;
p,r:byte;
begin
assign(t,'fisier.txt');
reset(t);
read(t,s);
close(t);
l:='BbCcDdFfGgHhJjKkLlMmNnPpQqRrSsTtVvWwXxYyZz';
for i:=1 to length(s) do begin
r:=0;
for b:=1 to length(l) do begin
if l[b]=s[i] then inc(r);
if r=1 then write(s[i],' ');
if r=1 then break
end;
end;
end.
