-- Illustrates use of a modular type
with Text_IO; use Text_IO;
procedure minutes is
-- A type for minutes: ranges 0 .. 59
type MinuteType is mod 60;
-- Must create an I/O package for MinuteType
package Minute_IO is new Text_IO.Modular_IO (Num => MinuteType);
use Minute_IO;
m: MinuteType;
begin
m := 50;
m := m + 20;
put(m); -- What is the output?
end Minutes;