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

TP 3, EXERCICE 4 }

program serie_racine;  {nom du programme, utile pour le compilateur
                       mais facultatif, car si il est absent, alors le
                       fichier .EXE aura pour nom NONAME01}
uses crt;     {d‚claration de l'unit‚ "CRT"}
var r:real;    {d‚claration des variables}
    i:integer;
const n=1000;   {le nombre de termes est d‚clar‚ en contante}

BEGIN           {d‚but du programme}
clrscr;     {efface l'ecran}
for i:=n downto 1 do r:=sqrt(r+i); {boucle finie pour la d‚cr‚mentation}
writeln('R vaut : ',r); {affichage du r‚sultat}
readln;   {attend qu'une touche soit press‚e}
END.