funcion exponencial

PROGRAM funexp;

VAR
x, sumaserie , exponencial : real;

BEGIN

Write('Introduzca un n£mero real: ');
readln(x);

sumaserie:= 1 + (x/1) + ((sqr(x)/2) + ((sqr3(x)/6) + ((sqr4(x)/24);
exponencial:= exp(sumaserie);

Writeln('Valor introducido= ',x);
Writeln('Suma de la serie= ',sumaserie);
Writeln('Exp(x)= ',exponencial);

Readln;

END.