RosettaCodeData/Task/Loops-Foreach/PL-I/loops-foreach.pli

declare A(10) fixed binary;
do i = lbound(A,1) to hbound(A,1);
   put skip list (A(i));
end;