Разложение e^x в ряд Тейлора

Задача:

Описание:

Код:

program ex_teilor;
var x,stx,ex,e: real;
    i,fakt: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
 stx:=x;  {x в степени}
 fakt:=1;  {значение факториала в знаменателе}
 ex:=1;  {первый элемент в разложении}
 i:=1;  {счётчик}
while stx/fakt>=e do begin  {до тех пор, пока элемент в разложении не меньше точности}
                     ex:=ex+stx/fakt;
                     inc(i);
                     stx:=stx*x;
                     fakt:=fakt*i;
                     end;
Writeln('Количество элементов в разложении = ',i+1);
Writeln('Значение e^',x:6:6,'= ',ex:6:6);
Writeln('Значение компьютера: ',exp(x):6:6);
Readln;
End.