задача на операторы цикла

[Miwqa]

Вычислить сумму членов ряда. Суммирование осуществлять, пока разность между текущим и предыдущим значениями суммы остается больше 0.001. Кроме этого, найти значение последнего слагаемого и его номер.


помогите, пожалуйста

[whatever]

пока разность между текущим и предыдущим значениями суммы остается больше 0.001

первое слагаемое 5/8=0,625;
второе слагаемое 24/48=0,5;
0,5-0,625= -0,125

дальше считать нет смысла.

program trollface_problem;
begin
  writeln('значение последнего слагаемого равно 0,5');
  writeln('его номер 2');
end.

[veniside]

наверняка модуль разности )

http://ideone.com/oSQBq