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