The Ada Program: main-put.adb

  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;