-- Chapter 11 - Program 1
with Ada.Text_IO;
use Ada.Text_IO;

procedure Chars is

   My_Char : CHARACTER;
   Another : CHARACTER := 'D';

begin

   My_Char := 'A';
   if My_Char < Another then
      Put_Line("My_Char is less than Another.");
   end if;

   Put(My_Char);
   Put(Another);
   Put(My_Char);
   Put_Line(" character output.");

   My_Char := CHARACTER'SUCC(My_Char);             -- 'B'
   My_Char := CHARACTER'FIRST;                     -- nul code
   My_Char := CHARACTER'LAST;                      -- del code

end Chars;




-- Result of execution

-- My_Char is less than Another.
-- ADA character output.