Напишите,пожалуйста, программу на паскале - Pascal

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

Найти min и max

Решение задачи: «Напишите,пожалуйста, программу на паскале»

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

uses crt;
const t=0.00001;
function F(x:real):real;
begin
F:=(x-ln(abs(sin(x))))/exp(ln(exp(0.5*x)-cos(2*x))/3);
end;
var x,xn,xk,dx,mn,mx:real;
begin
clrscr;
xn:=0.1;
xk:=1.5;
dx:=0.2;
x:=xn;
mx:=F(xn);mn:=F(xn);
while x<xk+t do
 begin
  writeln('x=',x:0:1,'  y=',F(x):0:5);
  if F(x)>mx then mx:=F(x);
  if F(x)<mn then mn:=F(x);
  x:=x+dx;
 end;
writeln;
write('Max=',mx:0:5,'  min=',mn:0:5);
readln
end.

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

Объявлены константы и переменные:
- t = 0.00001 (небольшое число для проверки условия цикла)
- x, xn, xk, dx, mn, mx (шесть переменных типа real)
- xn = 0.1 (начальное приближение для x)
- xk = 1.5 (конечное значение для x)
- dx = 0.2 (шаг для изменения x)
- mx и mn (для хранения максимального и минимального значений функции F(x) соответственно)
Запущен цикл while, который выполняется, пока x < xk + t:
- Выводится текущее значение x и соответствующее ему значение функции F(x)
- Если F(x) больше текущего максимального значения mx, то обновляется mx
- Если F(x) меньше текущего минимального значения mn, то обновляется mn
- x увеличивается на dx
После выполнения цикла выводится текущее значение mx и mn
Запрошается ввод с клавиатуры для завершения программы