-- Chapter 22 - Exercise 1

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

procedure CH22_1 is

   Hummer : TRANSPORT;   
   Limo   : CAR;
   Chevy  : CAR;
   Dodge  : TRUCK;
   Ford   : TRUCK;
   Schwinn : BICYCLE;

begin
   
   Set_Values(Hummer, 4, 5760.0); 

   Set_Values(Limo, 8);
   Set_Values(TRANSPORT(Limo), 4, 3750.0);
   Set_Values(Chevy, 5);
   Set_Values(TRANSPORT(Chevy), 4, 2560.0);

   Set_Values(Dodge, 6, 4200.0, 3, 1800.0);
   Set_Values(Ford, 4, 2800.0, 3, 1100.0);

   Set_Values(Schwinn, 1, 75.0);

   Put("The Ford truck has");
   Put(Get_Wheels(Ford), 2);
   Put(" wheels, and can carry");
   Put(Get_Passenger_Count(Ford), 2);
   Put(" passengers.");
   New_Line;
   
   Put("The Schwinn has");
   Put(Get_Wheels(Schwinn), 2);
   Put(" wheel.");
   New_Line;

end CH22_1;





-- Result of execution
--
-- The Ford truck has 4 wheels, and can carry 3 passengers.
-- The Schwinn has one wheel.