Написать программу для приближенного вычисления Пи с заданной точностью как сумму ряда: Пи/8=1+(1/1*3)+(1/5*7)+(1/9*11)+…

uses crt;

var
  s, t, e: real;
  n: integer;

begin
  clrscr;
  write('Введите точность вычислений e=');
  readln(e);
  s := 0;
  n := -3;
  t := 1;
  while t > e do
  begin
    n := n + 4;
    t := 1 / (n * (n + 2));
    s := s + t;
  end;
  s := s * 8;
  writeln('S =', s:0:8);
  write('pi=', pi:0:8);
  readln

end.