Программа

VAR
  a:real;  { Аргумент }
FUNCTION Root(k,x:real):real; { Вычисление корня степени k из x }
  Const
    Eps=1e-4;   { точность вычисления }
  Var
    y,yNew:real; { y - предыдущее приближение; yNew - новое приближение    }
  Begin
    yNew:=1; { Начальное определение (Y0) }
    repeat   { Цикл приближения к корню }
      y:=yNew; { Сохранение предыдущего результата перед следующей итерацией }
      yNew:=y+(x/exp((k-1)*Ln(y))-y)/k { Вычисление нового приближения }
    until abs(yNew-y)<=Eps; { Выход из цикла при достижении заданной точности }
    Root:=yNew  { Определение значения функции }
  End;
BEGIN
  write('Введите "a" ');  { Вывод приглашения ввести аргумент }
  readln(a);              { Ввод аргумента }
  WriteLn('Ответ: ',(Root(3,a)+Root(6,Sqr(a)+1))/(1+Root(7,3+a)))
                                           { Вычисление и вывод результата }
END.