Уравнение с циклами.

[wladimiralm]

[rubius2008]

i:=1; z:=1;
while exp(i*ln(x))/i>1e-4 do begin
  y:=y+z*exp(i*ln(x))/i;
  z:=-z;
  i:=i+1;
end;