Если 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.