Program Exponentiel;
Var x, s, epsilon, p, f:real;
i:integer;
Begin
Writeln('epsilon = ');
Readln(epsilon);
Writeln('x = ');
Readln(x);
s:=1;
i:=1;
p:=1;
f:=1;
Repeat
p:=p*x;
f:=f*i;
s:=s+p/f;
i:=i+1;
Until abs(p/f) <= epsilon;
Writeln('expn = ', s:2:10);
End.