Программа

PROGRAM Tangent;
CONST Eps=1e-7;   { Точность }
VAR Result:real;  { Корень }
    X:real;  { Переменная }
FUNCTION F(X:real):real;far; { Вычисление значения функции }
  Begin
    F:=3*x-14+Exp(x)-Exp(-x)
  End;
FUNCTION FProto(X:real):real;far; { Вычисление значения производной функции }
  Begin
    FProto:=3+Exp(x)+Exp(-x)
  End;
FUNCTION Root(X:real;Eps:real):real; { Вычисление корня }
  Var PredX:real; { Предыдущее приближение корня }
  Begin
    repeat  { Цикл приближения к корню }
      PredX:=X;  { Сохранение предыдущего приближение }
      X:=X-F(X)/FProto(X) { Вычисление нового приближения корня }
    until Abs(X-PredX)<=Eps; { Выход из цикла при достижении заданной точности }
    Root:=X  { Определение значения функции }
  End;
BEGIN
  WriteLn;                                       { Пропуск строки }
  Write('Введите начальное приближение корня '); { Вывод приглашения }
  ReadLn(X);                                     { Ввод начального приближения }
  Result:=Root(X,Eps);                           { Вычисление корня }
  writeln('X=',Result,'  F(X)=',F(Result))       { Вывод корня и проверки }
END.