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

Program Exemple3b ;

Var chiffre : Integer ;

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