Question

помогите пожалуйста вычислить сумму чисел 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);  срочно нужно