RosettaCodeData/Task/Loops-Foreach/XPL0/loops-foreach.xpl0
2023-07-01 13:44:08 -04:00

6 lines
146 B
Text

include c:\cxpl\codes;
int List, I;
[List:= ["Red", "Green", "Blue", "Black", "White"];
for I:= 0, 5-1 do
[Text(0, List(I)); CrLf(0)];
]