Программа

Program Iteration;
Var Result:real;  { Корень }
    X:real;  { Переменная }
Function F(X:real):real; { Функция }
  Begin
    F:=3*Sqr(Ln(X))+6*Ln(X)-5
  End;
Function Root(X:real):real; { Функция нахождения корня }
  const Eps=0.00000001; { Точность вычислений }
  Var PredX:real;   { Приближение полученное на предыдущей итерации }
      n:word; { Число шагов }
  Begin
    n:=0; { Обнуление числа шагов }
    repeat
      n:=n+1; { Набор числа шагов }
      PredX:=X;           { Сохранение приближения }
      X:=-F(X)/100+X       { Вычисление нового приближения }
    until Abs(PredX-X)<=Eps;   { Выход из цикла при достижении точности }
    WriteLn('Результат получен за ',n,' шагов при точности ',Eps:0);
    Root:=X { Определение значения функции }
  End;
BEGIN
  WriteLn;                                 { Пропуск строки }
  Write('Введите начальное приближение '); { Вывод приглашения }
  ReadLn(X);                               { Ввод начального приближения }
  Result:=Root(X);                         { Вычисление корня }
  WriteLn('X=',Result,'   F(',Result:0:2,')=',F(Result))
                                                    { Вывод корня и проверки }
END.