RosettaCodeData/Task/Loops-Do-while/Oberon/loops-do-while.oberon

MODULE LoopDoWhile;
IMPORT
  Out;

PROCEDURE Do();
VAR
  i: INTEGER;
BEGIN
  i := 0;
  REPEAT
    Out.LongInt(i,0);Out.Ln;
    INC(i)
  UNTIL (i MOD 6 = 0);
END Do;

BEGIN
  Do
END LoopDoWhile.