Итерационные циклы

[Natalia91169]

Помогите,пожалуйста задачу решить на языке Паскаль.
Последовательность вычисляется по закону:
а1=1
a2=1/2!
........
an=1/n!
Найти первый член an, для которого выполняется |an-an-1|<E,E=0,001.

[Mad_Cat]

fak:=1;
i:=1;
while abs(1/(fak*(i+1))-1/fak)<=e do
begin
i:=i+1;
fak:=fak*i;
end;
writeln(1/fak/(i+1));