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

4 lines
125 B
Text

include c:\cxpl\codes; \intrinsic 'code' declarations
int I;
for I:= 10 downto 0 do
[IntOut(0, I); CrLf(0)]