RosettaCodeData/Task/Loops-Foreach/XPL0/loops-foreach.xpl0

7 lines
146 B
Plaintext

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)];
]