Program Pascal Procedure Cardiac