Написать программу, которая вычисляет e^x. Язык паскаль

Предыдущий
вопрос Следующий
вопрос

program ExponentialFunction;

va
x, result: real
i, fact: integer;

function Factorial(n: integer): integer
begi
if n = 0 the
Factorial :=
els
Factorial := n * Factorial(n-1)
end;

begi
write('Enter the value of x: ')
readln(x);

result := 0;

for i := 0 to 10 d
begi
fact := Factorial(i)
result := result + power(x, i) / fact
end;

writeln('e^', x, ' = ', result:0:4)
end.