Найти минимум функции - PascalABC.NET

Формулировка задачи:

Помогите пожалуйста составить программу для данной задачи в паскале. Найти минимум функции y=(log2(|x|+2))^3-cos(a^b)-c*(x)^1.8 на отрезке xэ[3;33] h=3, a=3,b=2

с=3

Решение задачи: «Найти минимум функции»

Листинг программы

const xn=3;
      xk=33;
      h=3;
      a=3;
      b=2;
      c=3;
function f(x:integer):real;
begin
f:=power(ln(abs(x)+2)/ln(2),3)-cos(power(a,b))-c*power(x,1.8);
end; 
var x:integer;
    min:real;
begin
x:=xn;
min:=F(x);
while x<=xk do
 begin
  writeln('x=',x:2,' y=',f(x):8:2);
  if f(x)<min then min:=f(x);
  x:=x+h;
 end;
write('Минимум=',min:0:2);
end.

Объяснение кода листинга программы

В начале кода объявляются константы xn, xk, h, a, b, c и функция f(x: integer: real).
Функция f(x: integer: real) вычисляет значение функции для числа x.
Далее объявляется переменная x типа integer и переменная min типа real.
Переменная x инициализируется значением xn, а переменная min инициализируется значением F(x).
Затем в цикле while происходит увеличение переменной x на h и выводится текущее значение x и значение функции f(x).
Если значение функции f(x) меньше текущего значения min, то переменной min присваивается значение f(x).
После выхода из цикла while выводится значение min.
Значения переменных xn, xk, h, a, b, c и min могут быть изменены для получения других результатов.