Написать программу в паскале " найти сумму ряда 1-1/3+1/5-1/7+ с точностью до ԑ=0,0001, т.е суммирование прекращается, если очередной элемент по модулю меньше ԑ

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (s, i, z) := (0.0, 0, 1);

 var a: real;

 repeat

   Inc(i);

   a := 2 * i - 1;

   s += z / a;

   z := -z;

 until 1 / a < 1e-4;

 s.Println

end.

0.785448153398948