Помогите решить в Паскале
Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом

Основная проблема выполнения задания была в поиске способа вычисления факториала дробного числа и я не уверен в найденном способе, но если он верен, то программа работает верно, если возникнут проблемы - пишите.

Она не работает)И как-то надо решиться без mod.

var  n,i:integer;  s:real;begin  s:=1;  readln(n);  for i:=1 to n do    if i mod 2 = 1 then         s:=s-i*ln(2)    else         s:=s+i*ln(2);  writeln(s);end.