-- Chapter 23 - Program 9

package Person is

   type EMPLOYEE is abstract tagged private;

   procedure Display(Person_In : EMPLOYEE) is abstract;

private

   type EMPLOYEE is abstract tagged
      record
         Name        : STRING(1..25);
         Name_Length : INTEGER;
         Salary      : INTEGER;
      end record;

end Person;



-- Result of execution
--
-- (This package cannot be executed alone.)