RosettaCodeData/Task/Loops-Do-while/PL-I/loops-do-while-1.pli

dcl value fixed bin (31) init (0);
do forever;
  value = value + 1;

  if mod(value, 6) = 0 then
    leave;

  put list (value);
end;