Напишите программу по формуле s=1+x/1+x^2/2+x^3/3++x^n/n

PASCAL:
var
   S, x: real;
   i, n: integer;

begin
readln(x, n);
S := 1;
for i := 1 to n do
   S := S + power(x, i) / i;

writeln(S);
end.

C:
#include <stdio.h>
#include <math.h>
#include <conio.h>

int main() 
{
   float S = 1,
           x = 0,
           n = 0;
   scanf("%f %f", &x, &n);
   
   for (int i = 1; i <= n; i++)
      S = S + pow(x, i) / i;
   
   printf("%f", S);
   getch();
   return 0;
}