列举

type Fruit is (Banana, Orange, Pear);

Choice : Fruit := Banana;

字符类型是包含字符文字的枚举：

type Roman_Numeral is
    ('I', 'V', 'X', 'L', 'C', 'D', 'M', Unknown);`