\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}