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

Program ex3;
Uses Wincrt;
Var
  n,signe,i: Integer;
  s1,s2,s3: Real;
Begin
    Repeat
        Writeln ('Saisir N: ');
      Readln (n);
    until (odd(n));
  s1 := 0;
  s2 := 0;
  s3 := 0;
  signe := 1;
  For i:=1 To n Do
    Begin
      If Odd(i) Then
        Begin
          s2 := s2+(1 / i);
          s3 := s3+((signe*1) / i);
                    signe := -signe;
        End;
      s1 := s1+(1 / i);
    End;
  Writeln (s1:0:2);
  Writeln (s2:0:2);
  Writeln (s3:0:2);
End.