RosettaCodeData/Task/Loops-Continue/PL-I/loops-continue.pli

loop:
do i = 1 to 10;
   put edit (i) (f(3));
   if mod(i,5) = 0 then do; put skip; iterate loop; end;
   put edit (', ') (a);
end;