По заданному натуральному n и вещественному x вычислите​

Ответ:

Var i,n,p,f:integer;

Y:real;

Begin

Read(x,n);

P:=1;

Y:=1;

F:=1;

For i:=1 to n do begin

P:=p*x;

F:=f*i;

Y:=y+p/f;

End;

Write(y:20:6);

End.