Найти сумму S Опции

[V-art]

надо найти сумму s= 1+x/1!+x^2/2!+...+x^N/n! через цикл while , где n мы не трогаем, а задаём через заданную точность eps


вот для такого условия задачу правильно решили, у мення чтото подобное : s=x+x(в пятой степени):5+...+x(в степени 4n+1) делить на 4n+1

программа:
program c1;
var d: integer;
x,eps,s,u,v:real;
begin
writeln(' ');
read();
writeln(' ');
read();
s:x;
d:=0;
u:=x*x*x*x*x/5;
while u\s>=eps do
begin
v:=u;
d:=d+1;
u:=u*x*x*x*x*(4*d-3)/(4*d+1);
end;
writeln(' ');
...
end.



помогите пожалуйста, завтра лабу сдавать!