RosettaCodeData/Task/Loops-Do-while/Ada/loops-do-while-1.adb

loop
   Value := Value + 1;
   Put (Value);
   exit when Value mod 6 = 0;
end loop;