103e  | Code :
 - with text_io; use text_io;
 - procedure test is
 -  type t_jours is (Dimanche, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi);
 - package t_jours_io is new text_io.enumeration_io (t_jours);
 - jours : t_jours;
 - begin
 - t_jours_io.get_line ( jours );
 - t_jours_io.put ( jours );
 - end;
 
  |  
    |