Program TP5_Exo1;
Var
i, N: integer ;
X, S, P : real;
Begin
{-*-*-*- Entrées -*-*-*-}
Writeln('Donner les valeurs de N et X : ') ;
Read(N, X) ;
{-*-*-*- Traitements -*-*-*-}
S := 0 ; P := 1;i:=1;
repeat
P := P * X;
S := S + P / i;
i:=i+1;
Until (i>N);
{-*-*-*- Sorties -*-*-*-}
Write ('Le résultat S = ', S:0:3) ;
End.