Re: Question in french (a simple question, very simple)

[Niklas Holsti <nholsti@icon.fi>]

Pierre wrote:
> 
> Comment d�finir un type caract�re et son package d'entr�e-sortie !?

with Ada.Text_IO;

procedure CHART is

   type Marks_T is ('M', 'A', 'R', 'K', 'S',
                    'm', 'a', 'r', 'k', 's');

   package Marks_IO is new Ada.Text_IO.Enumeration_IO (Marks_T);

begin
   for M in Marks_T loop
      Marks_IO.Put (M);
      Ada.Text_IO.New_Line;
   end loop;
end CHART;