-- Chapter 12 - Program 1
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure Record1 is

   type DATE is
      record
         Month : INTEGER range 1..12;
         Day   : INTEGER range 1..31;
         Year  : INTEGER range 1776..2010;
      end record;

   Independence_Day : DATE;
   Birth_Day        : DATE;
   Today,Pay_Day    : DATE := (5, 25, 1982);

begin
   Independence_Day.Month := 7;
   Independence_Day.Day := 4;
   Independence_Day.Year := 1776;

   Birth_Day := Independence_Day;

   Pay_Day.Day := 30;

   Put("Independence day was on ");
   Put(Independence_Day.Month, 2);
   Put("/");
   Put(Independence_Day.Day, 2);
   Put("/");
   Put(Independence_Day.Year, 4);
   New_Line;

   Birth_Day := (Day => 19, Month => 2, Year => 1937);
   Today := (7, 14, 1952);
   Pay_Day := (7, Year => 1954, Day => 17);

end Record1;




-- Result of execution

-- Independence day was on  7/ 4/1776