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

Program exemple31b ;

Const Max=100 ;

Var x:1..Max ;

BEGIN
x:=1 ;
{...}
If Not(Succ(x)=Max) Then Inc(x) ;
{...}
END.