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.