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

Program Exemple4 ;

Uses Crt ;

Var age : Integer ;

BEGIN
     Write('Entrez votre ƒge : ') ;
     ReadLn(age) ;
     Case age Of
          18 : WriteLn('La majorit‚, pile-poil !') ;
          0..17 : WriteLn('Venez … moi, les petits enfants...') ;
          60..99 : WriteLn('Les infirmiŠres vous laisse jouer sur l''ordinateur … votre ƒge ?!!!') ;
          Else WriteLn('Vous ˆtes d''un autre ƒge...') ;
     End ;
END.