Здравствуйте, ogm1!

Смотрите код в приложении.
[code lang=pascal h=200]Program sum;
const x =0.82;
var
eps,a,s: real;
i,n:integer;
begin
repeat
writeln( '0<eps<1 eps='); readln(eps);
until(0<eps)and(eps<1);
a:=x; s:=a;n:=0;
while abs(a)>eps do
begin
n:=n+1;
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
end;
s:=4*s;
writeln ('s=', s:0:4);
{}
a:=x; s:=a;n:=0;
repeat
n:=n+1;
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
until abs(a)<eps;
s:=4*s;
writeln ('s=', s:0:4);
{}
a:=x; s:=a;n:=0;
for n:=1 to 1000 do
begin
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
if abs(a)<eps then break;
end;
s:=4*s;
writeln ('s=', s:0:4);
end.
[/code]
Удачи!