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

Program Exemple6 ;

Var i : Integer ;

BEGIN
     For i := 100 DownTo 0 Do
          Begin
               WriteLn ('Valeur de i : ', i) ;
          end ;
END.