{* Задача 58 *}

Unit ZADACH58;
Interface
Implementation
Begin
 writeln('Вычислить сумму членов ряда.Суммирование осуществляется пока разность между предыдущим и текущим значением суммы остаётся 0.001.Кроме суммы, вывести на экран значение последнего слагаемого и его номер');
End.

Program zadach58;

Uses zadach58.pas; {* Эту строку можно удалить *}
Uses Math; {* Вызов внешних функций *}
Function r_num(i : integer) : real;
Var {* В работе нам потребуются переменные: *}
  j   : integer;
  k   : integer;
  tmp : real;
Begin
  tmp := 1;
  j := 1;
  k := 1;
  While j0.001 Do
  Begin
    summ := summ + r_num(i);
    inc(i); {* Прибавим к i единицу *}
  End;
  write('count: ');
  writeln(i - 1);
  write('last: ');
  writeln(r_num(i - 1));
  write('summ: ');
  writeln(summ);
End;

  End....