-- Chapter 23 - Program 5 with Ada.Text_IO; use Ada.Text_IO; package Person is type EMPLOYEE is tagged private; procedure Display(Person_In : EMPLOYEE); private type EMPLOYEE is tagged record Name : STRING(1..25); Name_Length : INTEGER; Salary : INTEGER; end record; end Person; package body Person is procedure Display(Person_In : EMPLOYEE) is begin Put("This message should never be displayed!"); end Display; end Person; -- Result of execution -- -- (This package cannot be executed alone.)