вычислить число пи через разложение в ряд взяв 500 слагаемых

В программе использовано разложение числа пи в ряд Лейбница:

1 – 1 / 3 + 1 / 5 – 1 / 7 + … = Σ ((-1)^i / (2 * i + 1))  = pi / 4

(суммирование по i от нуля до бесконечности).

program pi;var s: real;k: integer;begins:= 0;k:= 1;for i: integer:= 0 to 500 dobegins:= s + k / (2 * i + 1);k:=k * (-1);end;writeln(4 * s : 12 : 10)end.