RosettaCodeData/Task/Loops-Do-while/DWScript/loops-do-while.dw

var i := 0;

repeat
   Inc(i);
   PrintLn(i);
until i mod 6 = 0;