Pascal abc составить программу для нахождения s дано натуральное число n. найти сумму s=1- 1/5 + 1/9 - 1/+ (n-слагаемых) !

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(Range(0,n-1).Select(i->1/(i.IsEven?4*i+1:-(4*i+1))).Sum)
end.

Пример
n= 13
0.876761945581588

для Pascal ABC (проверить негде, проект закрыт в 2004 году)

var
  i,n,z:integer;
  x,s:real;

begin
  Write('n='); Read(n);
  s:=0; z:=1;
  for i:=0 to n-1 do begin
    x:=1/(4*i+1);
    s:=s+x*z;
    z:=-z
    end;
  Writeln(s)
end.