(* Chapter 15 - Program 4 *)
unit Vehicles;

interface

type
   Vehicle = object
      Wheels : integer;
      Weight : real;
      constructor Init(In_Wheels : integer; In_Weight : real);
      function Get_Wheels : integer;
      function Get_Weight : real;
      function Wheel_loading : real;
   end;

implementation

   constructor Vehicle.Init(In_Wheels : integer; In_Weight : real);
   begin
      Wheels := In_Wheels;
      Weight := In_Weight;
   end;

   function Vehicle.Get_Wheels : integer;
   begin
      Get_Wheels := Wheels;
   end;

   function Vehicle.Get_Weight : real;
   begin
      Get_Weight := Weight;
   end;

   function Vehicle.Wheel_loading : real;
   begin
      Wheel_Loading := Weight/Wheels;
   end;

end.




{ Result of execution

This file cannot be executed.)

}