Вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть начало программы begin s: =0; n: =1; while s< =pi/4 do begin s: =1/(2*n-1)+s inc(n); нужно

Так как написано, программа будет работать бесконечно.  Задавайте в программе точность вычислений, например, 6 знаков после запятой,  eps = 1.0e-6

var eps,s,delta: real; 
    i,sg: integer;
begin
  write('точность вычислений eps:  ');
  readln(eps);
  s:=0;  sg:=1;  i:=1;
  repeat
    delta:=1/(2*i-1);
    s:=s+(1/(2*i-1))*sg;
    sg:=-sg;
    i:=i+1;
  until delta<eps;
  writeln('сумма:  ',s);
  writeln('точное значение:  ',pi/4);
end.