С помощью оператора WHILE подсчитать сумму ряда - Turbo Pascal (248709)

Формулировка задачи:

Составить программу, в которой с помощью оператора WHILE подсчитать сумму ряда до тех пор, пока член ряда не будет меньше 0.005.

Решение задачи: «С помощью оператора WHILE подсчитать сумму ряда»

Листинг программы

const eps = 5e-3;
var
  s, u : Real;
  i : Integer;
begin
  s := 0; u := 1; i := 1;
  while u > eps do
    begin
      inc(i); u := (1+1/i)/(i*i*i+i*i+20); s := s + u;
    end;
  WriteLn(s:0:6);
end.

Объяснение кода листинга программы

В начале кода объявляются три переменные: s, u и i. Значение переменной s инициализируется как 0, значение переменной u как 1, а значение переменной i как 1.
Далее следует оператор WHILE, который выполняет блок кода до тех пор, пока значение переменной u больше заданной точности eps.
Внутри цикла происходит следующее: 3.1. Значение переменной i увеличивается на 1. 3.2. Значение переменной u вычисляется как (1+1/i)/(iii+i*i+20). 3.3. Значение переменной s увеличивается на значение переменной u.
После выполнения цикла выводится значение переменной s с точностью до 6 знаков после запятой. Примечание: в данном коде используется формула для вычисления суммы ряда 1/i^3.