Программирование циклов с условием, Вопрос Опции

[Stas86]

Добрый день. Вот такая задачка.

Program z1;
Uses crt;
Var
s,t,n,E:real;
begin
writeln ('Введите точность');
Readln (E);
s:=1;
t:=1;
n:=1;
while abs (t)>e do
begin
n:=n+1;
t:=t*x/n;
s:=s+t;
end;
write ('S', S:0:4);
Readkey;
End. 

Преподша сказала, что нужно добавить еще три строчки факториала. Вот собственно в этом и вопрос.
Условие задачки на изображении.[code]

[volvo]

вроде алгоритм составлен правельно! но где то есть ошибка! так как не должно выводтиь 1

Может где-то и есть, только не в этой программе. Потому что при вводе X = 5 (что следует из твоего предыдущего поста) 1 в результате не получается. Получается

Введите точность e=0.001
S=9.5913

Где 1?