===== PascalABC.NET =====

begin

 var h := HSet(Range(0,9));

 var n := Abs(ReadInteger('Введите целое число:'));

 while n > 0 do

 begin

   h.Remove(n mod 10);

   n := n div 10

 end;

 h.Println

end.