Решить в паскале вычислить: у=1-1/1! +1/2! -1/3! +/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.