type T_En_Tete_Console is record But : Unbounded_String := Null_Unbounded_String; Auteur : Unbounded_String := Null_Unbounded_String; Remarque : Unbounded_String := Null_Unbounded_String; Date : Unbounded_String := Null_Unbounded_String; end record;Cette structure représente les informations qui seront visible à l'éxecution du programme de test.