RosettaCodeData/Task/Loops-Do-while/Modula-2/loops-do-while.mod2

MODULE DoWhile;
  IMPORT InOut;

  VAR
    i: INTEGER;

BEGIN
  i := 0;
  REPEAT
    INC(i);
    InOut.WriteInt(i, 1);
    InOut.WriteLn;
  UNTIL i MOD 6 = 0;
END DoWhile.