RosettaCodeData/Task/Loops-Downward-for/PascalABC.NET/loops-downward-for.pas

##
for var i:=10 downto 0 do
  Print(i);