RosettaCodeData/Task/Loops-Do-while/Ada/loops-do-while-2.ada

for Value in 0..Integer'Last loop
   Put (Value);
   exit when Value mod 6 = 0;
end loop;