program test (output);

type digit = 0..9 ;
    billy = set of digit;

var space : array [0..10] of billy;
    i : integer;

begin
  for i := 0 to 9 do
  begin
    space [i] := [ord(9-i)]
  end;

  for i := 9 downto 0 do
    if space[i] = [ord(9-i)] then writeln (i)
end.