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

взяв 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.