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

Program Exemple3a ;

Var chiffre : Integer ;

BEGIN
     Write('Entrez un entier pas trop grand : ') ;
     ReadLn(chiffre) ;
     If chiffre < 100 then WriteLn(chiffre, ' est inf‚rieur … cent.')
                      else WriteLn(chiffre, ' est sup‚rieur ou ‚gale … cent.') ;
END.