program ErrorSample; var y, s, x, p, f: real; n, i, z: integer; begin x:=1; y:=1.25; for n:=1 to 20 do begin x:=x*y; s:=0; p:=x; f:=1; z:=1; for i:=1 to 10 do begin s:=s+z*p/f; f:=f*2*i*(2*i+1); p:=p*x*x; z:=-z; end; s:=y*ln(s); writeln(s); end; readln; end.