type T=( C1, C2, C3, ....., Cn)Voici un petit programme utilisant une définition de type scalaire
program colorier;
type couleur=(bleu, vert, jaune, rouge, gris);
var coul1, coul2 : couleur;
begin
coul1:=bleu;
coul2:=succ(coul1);
coul1:=pred(coul2);
writeln(coul1, coul2);
end.
Remarque : succ(gris) n'est pas défini.