Программа

Program Alexandr (input,output);
{ Вычислить по формуле,
  вывести в таблице }
Var
  a:real;
  t1,t2,t3,t4:real; { t1,t2,t3 - промежуточные переменные для значений
                                 корней;
                            t4 - результат }
function Root(r,x:real):real; { Вычисление корня степени r из x }
  Const
    Eps=1e-5;   { точность вычисления }
  Var
    y,yNew:real; { y - предыдущее приближение; yNew - новое приближение    }
  begin
    yNew:=1;
    repeat      { цикл }
      y:=yNew; { сохранение предыдущего результата перед следующей итерацией }
      yNew:=(r*y+x/exp((r-1)*Ln(y))-y)/r { вычисление нового приближения }
    until abs(yNew-y)<=Eps; { выход из цикла при достижении заданной точности }
    Root:=yNew
  end;
BEGIN
  writeln('Введите "a" ');
  readln(a);
  t1:=Root(3,a);
  t2:=Root(6,Sqr(a)+1);
  t3:=Root(7,3+a);
  t4:=(t1-t2)/(1+t3);
  writeln('╔═══════════════╤═══════════════════╗');
  writeln('║ Первый корень │ ',t1,' ║');
  writeln('╟───────────────┼───────────────────╢');
  writeln('║ Второй корень │ ',t2,' ║');
  writeln('╟───────────────┼───────────────────╢');
  writeln('║ Третий корень │ ',t3,' ║');
  writeln('╠═══════════════╪═══════════════════╣');
  writeln('║ Результат     │ ',t4,' ║');
  writeln('╚═══════════════╧═══════════════════╝');
END.