with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

package body BoxObject is

procedure Make_A_Box(Result_Box : out Box;
				In_Length, In_Width, In_Height : Integer) is
begin
   Result_Box.Length := In_Length;
   Result_Box.Width  := In_Width;
   Result_Box.Height := In_Height;
end Make_A_Box;

function "="(Left, Right : Box) return Boolean is
begin
   if (Left.Length = Right.Length and
                Left.Width = Right.Width and
                         Left.Height = Right.Height) then
      return True;
   else
      return False;
   end if;

end "=";

function "+"(Left, Right : BOX) return BOX is
   Temp_Box : BOX;
begin
   Temp_Box.Length := Left.Length + Right.Length;
   Temp_Box.Width  := Left.Width  + Right.Width;
   Temp_Box.Height := Left.Height + Right.Height;
   return Temp_Box;
end "+";

procedure Print_Box(Input_Box : Box) is
begin
   Put("Length = ");
   Put(Input_Box.Length, 3);
   Put("   Width = ");
   Put(Input_Box.Width, 3);
   Put("   Height = ");
   Put(Input_Box.Height, 3);
   New_Line;
end Print_Box;

end BoxObject;