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.