Вычислить двойную сумму ряда S= -1/2! + 3/2! — 4/3! + 5/4! … вычисления прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверить насколько сумма приблизилась к значению pi/4 — Pascal(Паскаль)

uses crt;
var t,s,e:real;
    n:integer;
begin
clrscr;
e:=0.001;
t:=-1;
s:=-2;
n:=1;
while abs(t*(n+1))>e do
 begin
  n:=n+1;
  t:=-t/n;
  s:=s+t*(n+1);
 end;
s:=s*2; {вроде написано двойная сумма}
write('S=',s:0:3);
readln
end.