Экспонетна с точность ESP

[systemv]

Вычислить с помощью ряда значений функции с точность EPS, сравнить полученной значение со значение соответствующей стандартной функцией e^x=1+x+x*x/2+x*x*x/3!+...+x^n/n!

Если честно, вообще не могу понять условие задачи...
Как я понял: Нужно ввести EPS, далее программа должна вывести на экран значение e^x с точностью EPS, и стандартную функцию.
Вообще не представляю как ее сделать (

[Z1000000]

var
 eps,f,fprev,x,factorial : Real;
 count : integer;
begin
eps := 0.001;
f := 1;
fprev := 1;
count := 1;
factorial := 1;
read(x);
while true do
 begin
 factorial := factorial * count;
 f := f + power(x,count)/factorial;
// writeln(count,' ',factorial,' ',f); // проверочный протокол
 if f - fprev < eps then break;
 fprev := f;
 count := count + 1;
 end;
writeln('Вычисленное значение функции :',f);
writeln('Стандартная функция :',Exp(x));
end.