{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple34;
Var color:(red,yellow,green,black,blue);
BEGIN
color:=green;
Case color Of
 red : WriteLn('Rouge');
 yellow : WriteLn('Jaune');
 green : WriteLn('Vert');
 black : WriteLn('Noir');
 blue : WriteLn('Bleu');
End;
END.