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

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

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

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

program pi;

var s: real;

k: integer;

begin

s: = 0;

k: = 1;

for i: integer: = 0 to 500 do

begin

s: = s + k / (2 * i + 1);

k:=k * (-1);

end;

writeln (4 * s : 12 : 10)

end.