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

Program Exemple3c ;

Var i : Integer ;

BEGIN
     Randomize ;
     i := Random(100) ;
     If i < 50 Then WriteLn (i,' est inf‚rieur … 50.')
               Else If i < 73 Then WriteLn (i,' est inf‚rieur … 73.')
                              Else WriteLn (i,' est sup‚rieur ou ‚gale … 73.') ;
END.