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.