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

Program Exemple2 ;

Uses Crt ;

Var i : Integer ;

Const bornesup=10000 ;

BEGIN
     Repeat
           WriteLn(Sqrt(i)) ;
           Inc(i,1) ;
     Until (i=bornesup) or KeyPressed ;
END.