program zad;
uses crt;
var s: string;
   m:set of char;
    i: byte;
Begin
writeln('text') ;
readln(s);
m:=[];
   for i:=1 to length(s) do
       if not (s[i] in m) then begin
   write(s[i]:2);
   m:=m+[s[i]];
       end;
readln;
End.