type Fruit is (Banana, Orange, Pear); Choice : Fruit := Banana;
A character type is an enumeration that includes a character literal:
type Roman_Numeral is ('I', 'V', 'X', 'L', 'C', 'D', 'M', Unknown);`