Найдите приближенное значение числа pi. - Pascal

В 1674 году Г. Лейбниц показал, что число п/4=1-1/3+1/5-1/7+... Найдите приближенное значение числа pi, просуммировав 100 членов этого ряда.

Листинг программы

var i,k:integer;
    p:real;
begin
p:=0;
k:=-1;
for i:=1 to 100 do
 begin
  k:=-k;
  p:=p+k/(2*i-1);
 end;
write('pi=',4*p:0:5)
end.

Объяснение кода листинга программы

Объявляются переменные:
- i типа integer (целое число)
- k типа integer (целое число)
- p типа real (вещественное число)
Переменной p присваивается значение 0. Эта переменная будет использоваться для хранения приближенного значения числа π.
Переменной k присваивается значение -1.
Начинается цикл for i:=1 to 100 do, который будет выполняться 100 раз (от 1 до 100).
Внутри цикла происходит следующее:
- Значение переменной k меняется на противоположное (если было -1, станет 1, если было 1, станет -1).
- Переменной p присваивается новое значение, вычисленное как предыдущее значение p плюс k делить на (2 * i - 1).
После выполнения цикла выводится значение числа π, приближенное до 5 знака после запятой, с помощью следующей команды:
- write('pi=',4*p:0:5) Этот код использует метод Монте-Карло для приближенного вычисления значения числа π.