1 -- main-put.adb: print month, day, year (subunit of main) 2 3 with Ada.Text_IO, Ada.Integer_Text_IO; 4 use Ada; 5 6 separate (Main) 7 8 procedure Put (Day, Year: Integer; Month: Month_Type) is 9 begin 10 Text_IO.Put (Item => Month_Type'Image (Month)); 11 Integer_Text_IO.Put (Item => Day); 12 Integer_Text_IO.Put (Item => Year); 13 Text_IO.New_Line; 14 end Put;