RosettaCodeData/Task/Loops-Downward-for/Pascal/loops-downward-for.pascal
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
38 B
Text

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