RosettaCodeData/Task/Loops-Downward-for/Pascal/loops-downward-for.pas
2023-07-01 13:44:08 -04:00

2 lines
38 B
ObjectPascal

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