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;
For I := 1 to N do
begin
P := P * X;
S := S + P / i;
end;
{-*-*-*- Sorties -*-*-*-}
Write ('Le résultat S = ', S:0:3) ;
End.