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