Программа

CONST Eps=0.001;    { Точность }
VAR x:real;         { Переменная }
    n:integer;      { Счетчик }
    PowerX:real;    { Набираемая степень X }
    Power4X:real;   { X^4 }
    Add:real;       { Слагаемое }
    S:real;         { Сумма }
BEGIN
  WriteLn;              { Пропуск строки }
  Write('Введите x ');  { Вывод приглашения ввести x }
  ReadLn(x);            { Ввод x }
  Power4X:=Sqr(Sqr(x)); { Определение X^4 }
  n:=-1;                { Начальное определение счетчика }
  PowerX:=1/(x*x*x);    { Начальное определение степени X }
  S:=0;                 { Начальное определение суммы }
  repeat                { Цикл набора суммы }
    PowerX:=PowerX*Power4X;  { Набор степени X }
    n:=n+1;                  { Переопределение счетчика }
    Add:=PowerX/(4*n+1);     { Вычисление слагаемого }
    S:=S+Add                 { Набор суммы }
  until Abs(Add)<Eps;
  WriteLn('S=',S)       { Вывод суммы }
END.