Программа

Var Result:real;  { Корень }
    X:real;  { Переменная }
Function F(X:real):real; { Функция }
  Begin
    F:=Sqr(Sqr(X))-6*X*X+12*X+8
  End;
Function Root(X:real):real; { Функция нахождения корня }
  const Eps=0.00000001; { Точность вычислений }
  Var PredX:real;
  Begin
    repeat
      PredX:=X;
      X:=F(X)/100+X
    until Abs(PredX-X)<=Eps;
    Root:=X { Определение значения функции }
  End;
BEGIN
  WriteLn;  { Пропуск строки }
  { Ввод начального приближения: }
  Write('Введите начальное приближение ');
  ReadLn(X);

  Result:=Root(X);                              { Вычисление корня }
  writeln('X=',Result,'   F(',Result:0:2,')=',F(Result))
                                                { Вывод корня и проверки }
END.