Poniższy przykład ilustruje metodę konwersji wprowadzanego
znaku na wartość typu wyliczeniowego oraz wartości typu wylicze-
niowego na napis.
Definicja typu wyliczeniowego Tkolory uwzględnia te kolory, któ-
re będą rozróżnialne w programie. Wszystkie inne kryją się pod
identyfikatorem InnyKolor:
TYPE
Tkolory=(bialy, zolty, zielony, niebieski, czarny, InnyKolor);
Zmiennej typu wyliczeniowego:
VAR Kolor_Nadwozia:Tkolory;
można nadać wartość w instrukcji przypisania:
Kolor_Nadwozia:=bialy;
Pokazany niżej fragment programu ilustruje sposób wpisania
wartości do zmiennej Kolor_Nadwozia na podstawie decyzji użyt-
kownika, który wprowadza z klawiatury kod koloru. Wykorzystuje się
tu zmienną z, zadeklarowaną jako:
VAR z:CHAR;
...
write( Podaj kod koloru:  );
writeln( b-bialy, z-zolty, c-czerwony, q-zielony, n-niebieski,
r-czarny, x-InnyKolor );
readln(z);