Program ff12_17;<br/>
var n:longint;<br/>
    m:set of 0..9;<br/>
    i: 0..9;<br/>
BEGIN<br/>
writeln('â楨塷鲫;<br/>
readln(n);<br/>
m:=[];<br/>
while n<>0 do<br/>
begin<br/>
 m:=m+[n mod 10];<br/>
 n:=n div 10;<br/>
end;<br/>
for i:=0 to 9 do<br/>
if i In m then write(i : 3);<br/>
readln;<br/>
END. <br/>
</p>