Составить программу, которая вычисляет сумму ряда с заданной точностью. Нужная точность считается полученной, если очередное слагаемое оказалось по модулю меньше, чем  (это и все последующие слагаемые учитывать не надо).
Написать блок-схему и Паскаль

function f(x,eps:real):real;

var z,s:real; k:integer;

begin

 z := x;

 k := 1;

 s := 0;

 while abs(z/k) >= eps do

   begin

   s := s + z/k;

   z := -z*x;

   k := k + 1;

   end;

 f := s;

end;

begin

writeln( f(0.35, 0.001) );

// writeln( ln(1 + 0.35) )

end.