вычислить число пи через разложение в ряд

[tex]\pi/4 = 1-1/3+1/5-1/7+... = \sum_{k=1}^{\infty}{(-1)^{k+1}*\frac{1}{2*k-1}[/tex]

взяв 500 слагаемых

Если power изучали, то можно так:
var
   k:integer;
   p:real;
begin
for k:=1 to 500 do
  p:=p+power(-1,k+1)/(2*k-1);
writeln('Pi/4 = ',p)
end.
 Если не изучали, пиши, сделаю по-другому.

Версия для Турбо:

program rd;
var 
   k,z:integer;
   p:real;
begin
z:=1;
for k:=1 to 500 do
  begin
  p:=p+z/(2*k-1);
  z:=-z
  end;
writeln('Pi/4 = ',p)
end.