for i := 10 downto 0 do
  writeln(i);