Помогите решить в Паскале
Вычислить: у = 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.