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

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.