{
  Calcula uma aproximação para e^x, x real, tilizando a seguinte série:

           e^x = 1 + x + x^2/2! + x^3/3! + ...

  O usuario fornece o valor de x e o numero de termos da serie.
}

program e_x;
var
   x, e, t	: real;
   i, n	: integer;
begin
   write('x = ');
   read (x);
   write('n termos = ');
   read(n);
   e := 1;
   t := 1;
   for i := 1 to n-1 do
   begin
      t := t * x/i;
      e := e + t;
   end;
   writeln('e^x = ', e:3:2);
end.