RosettaCodeData/Task/Loops-Downward-for/Pascal/loops-downward-for.pas

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