numval.adb

with Ada.Text_IO; use Ada.Text_IO;

procedure Numval is
   type Enum is (A, B, C, D, E, F);

   L : Integer := Enum'Pos(Enum'Last) - Enum'Pos(Enum'First);
begin
   Put_Line (L'Image);
end Numval;