\begin{programs}[0.5cm] \PROCEDURE FORT\_TYPAGE \IS \TYPE COULEURS \IS (ROUGE, ORANGE, JAUNE, VERT, BLEU, INDIGO, VIOLET); \TYPE T \IS \ARRAY (INTEGER \RANGE <>) \OF COULEURS; A : T(1..5) := (BLEU, ROUGE, VERT, JAUNE, VIOLET); B : T(1..5); \BEGIN B(1) := A(1); B(1..5) := A(1..5); B := A; \END FORT\_TYPAGE; \end{programs}