Как посчитать число ПИ в Паскале?

program ex39;{вычисление числа пи}
uses crt;
var
p: real; {вычисляемое значение пи}
eps: real; {точность вычислений}
n: integer ; {номер члена ряда}
elem: real; {значение элемента ряда }
begin
clrscr;
p:=0; {начальные значения}
n:=1;
elem:=1;
write('задайте точность вычисления пи: ');
readln(eps);
writeln('вычисление пи с точностью ', eps:9:6);
while elem>= eps do
begin
elem:=1/(2*n-1);
if (n mod 2) =0
then p:=p-elem else p:=p+elem;
n:=n+1;
end;
p:=p*4;
writeln('значение пи с точностью ', eps:9:6,' равно', p:9:6);
writeln ('просуммировано ', n, ' членов ряда ');
readln;
end.