program r12_18;
uses crt;
var n:longint;
      m,g:set of 0..9;
      i:0..9;
Begin
writeln('Ââåäèòå ÷èñëî:');
readln(n);
m:=[];g:=[];
while n<>0 do
 begin
   if (n mod 10) in m then g:=g+[n mod 10]
   else m:=m+[n mod 10];
  n:=n div 10;
 end;
for i:=0 to 9 do
 if i in g then write(i:3);
readln;
END.