-- Chapter 22 - Program 3

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

procedure Vehicle1 is

   Hummer : TRANSPORT;   
   Ford   : CAR;

begin
   
   Set_Values(Hummer, 4, 5760.0); 

   Put("The Hummer has");
   Put(Get_Wheels(Hummer), 2);
   Put(" wheels.");
   New_Line;
   
   Put("The Hummer has");
   Put(Hummer.Wheels, 2);
   Put(" wheels.");
   New_Line;

   Set_Values(Ford, 4, 3204.0);
 
   Put("The Ford has");
   Put(Get_Wheels(Ford), 2);
   Put(" wheels. The tire load is ");
   Put(Tire_Loading(Ford), 3, 1, 0);
   Put(" pounds per tire.");
   New_Line;
  
end Vehicle1;




-- Result of execution
--
-- The Hummer has 4 wheels.
-- The Hummer has 4 wheels.
-- The Ford has 4 wheels. The tire load is 801.0 pounds per tire.