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