RosettaCodeData/Task/Loops-Do-while/PascalABC.NET/loops-do-while.pas

begin
  var a := 0;
  repeat
    a += 1;
    Print(a);
  until a mod 6 = 0;
end.