列舉

type Fruit is (Banana, Orange, Pear);

Choice : Fruit := Banana;

字元型別是包含字元文字的列舉：

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