Pascal abc составить программу для нахождения S Дано натуральное число 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.