RosettaCodeData/Task/Loops-For/PL-I/loops-for-1.pli

do i = 1 to 5;
   do j = 1 to i;
      put edit ('*') (a);
   end;
   put skip;
end;