Exp(x), Решить с помощью цикла Опции

[strelec025]

Целью решения задачи, приведенной в табл. 3, является вычисле-
ние заданной функции с некоторой погрешностью EPS путем вычисле-
ний указанного бесконечного ряда. Величину EPS изменять в диапазоне
0,01..0,00001 пpи одном значении аpгумента.
Для проверки правильности вычислений сpавнить
значение полученной суммы pяда со значением библиотечной функции.



Я какбы написал программу, которая сравнивает числа с точностью до сотых, но вот при x=1 и x=2 проблем не возникает, а как x=3 у меня выходит ошибка то что на ноль делить нельзя.
Помогите пожалуйста.

var s,x,i:integer; y:real;
begin
writeln('BBeDuTe cTeIIeHb EkcIIoHeHTa');
readln(x);
y:=1+x; {na4alo funkcii}
i:=1;  {stavim stepen 4isla x=1}
s:=1;  {factorial = 1}
repeat
 i:=i+1; {yveli4ivaem stepen 4isla x}
 s:=s*i; {vi4islyaem factorial do i! }
 y:=y+exp(ln(x)*i)/s; {= y+x^i/i!}
 until trunc(y*100)=trunc(exp(x)*100); {sravnivayem 2 cifri posle zapyatoi y 4isel}
writeln('y= ',y); {vivodim priblizhenoe zna4enie s to4nost'u do sotih}
writeln('exp(x)= ',exp(x)); {vivodim funkciu E^x}
readln
end.