RosettaCodeData/Task/Loops-Continue/Modula-3/loops-continue.mod3

FOR i := 1 TO 10 DO
  IO.PutInt(i);
  IF i MOD 5 = 0 THEN
    IO.Put("\n");
    RETURN;
  END;
  IO.Put(", ");
END;