Программа

PROGRAM Sum2;
CONST Eps=1e-6;  { Точность }
VAR x:real;      { Аргумент }
    Add:real;    { Слагаемое }
    Sum:real;    { Сумма }
    R:real;      { Счетчик }
BEGIN
  WriteLn;             { Пропуск строки }
  Write('Введите x '); { Вывод приглашения ввести x }
  ReadLn(x);           { Ввод x }
  Sum:=0;              { Обнуление суммы }
  x:=Sqrt(Abs(x));     { Приведение аргумента }
  R:=1;                { Начальное опрделение суммы }
  repeat               { Цикл набора суммы }
    Add:=x/(R*R*R);      { вычисление слагаемого }
    Sum:=Sum+Add;        { набор суммы }
    R:=R+1               { переопределение счетчика }
  until Add<Eps;
  WriteLn('Сумма равна ',Sum)    { Вывод набранной суммы }
END.














































  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
   *****************

  *               *
         x
 *               *

*****************
         :
         :
 *****************
 *    Sum:=0     *
 *               *
 *x:=Sqrt(Abs(x))*
 *               *
 *     R:=1      *
 *****************
         :
         :∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙.
         :                       :
         :                       :
 *****************               :
 *  Add:=x/(R^3) *               :
 *               *               :
 *  Sum:=Sum+Add *               :
 *               *               :
 *    R:=R+1     *               :
 *****************               :
         :                       :
         *                       :
       *   *                     :
     *       *                   :
   *           *    Нет          :
 *    Add<1e-6   * ..............:
   *           *
     *       *
       *   *
         *
         :
         : Да
         :
   *****************

  *               *
        Sum
 *               *

*****************
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************