Exercice 4 (Série #3) (Classe)

program ex4;
uses wincrt;
Var
s1,s2:real;
i:integer;
Begin
    i:=0;
    s2:=1;
    Repeat
        i:=i+2;
        s1:=s2;
        s2:=s2*(i/(i-1))*(i/(i+1));
    Until abs (s2-s1)<=1e-8;
    writeln ('Pi est égale: ',s2*2);
end.