Найти минимум функции: y = log^3 ( |x -12|^1,7 +5,1) логарифм по основанию 2.  Язык Паскаль

Все, убрал помарки. Метод нахождения экстремума с помощью золотого сечения. Описание - литература, Интернет.

function f(x: real): real;begin  f := exp(3 * ln(ln(exp(1.7 * ln(abs(x - 12))) + 5.1))) / exp(3 * ln(ln(2)));end;var  a, b, eps, r, delta, lp, rp, sgn: real;begin  r := (sqrt(5) + 1) / 2; {Пропорция золотого сечения}  writeln('Пропорция золотого сечения=', r:0:6);  writeln('Задайте границы интервала и точность решения');  readln(a, b, eps);  delta := eps / 2;  rp := a + (b - a) / r;  lp := b - (b - a) / r;  if f(a) > (f(a + delta)) then sgn := 1 else sgn := -1;  while abs(b - a) > eps do  begin    rp := a + (b - a) / r;    lp := b - (b - a) / r;    if (sgn * f(lp)) < (sgn * f(rp)) then b := rp else a := lp  end;  if sgn = -1 then writeln('Максимум достигнут при х=', lp:0:6,      ', значение функции равно ', f(lp):0:6)  else writeln('Минимум достигнут при х=', rp:0:6,      ', значение функции равно ', f(rp):0:6)end.Тестовое решение:Пропорция золотого сечения=1.618034Задайте границы интервала и точность решения11 15 0.00001Минимум достигнут при х=11.999996, значение функции равно 12.986115