RosettaCodeData/Task/Loops-N-plus-one-half/PL-I/loops-n-plus-one-half.pli

do i = 1 to 10;
   put edit (trim(i)) (a);
   if i < 10 then put edit (', ') (a);
end;