Поиск экстремума методом Монте-Карло

uses
graphABC; //Подключаем графический модуль
 
const
W = 800; H = 500;//Размеры графического окна
 xk=10;  
    dxx=0.0001; 
    E=0.001;
    
var xx,u,my,mx:real;
    a,b,x0,y0,i,iii,n:integer;
    s:string;
l,ii,m,k1,k2,k3,x2,u1, fmin, fmax, x1, y1, x, dx, dy, num,Fa,Fx,d,c,g,ex,ep,yyy,mn,y11,x11,x22,y22,xxx: real;
 
 
 
function F(x: real): real;
begin
  F := sqrt(x)-3*sin(x);  //Функция
end;
begin
setwindowsize(500,500);
a:=0;//интервал по Х
b:=10;
x0:=50;//начало координат
y0:=windowheight div 2;
mx:=(windowwidth-x0-30)/b;//масштаб по Х
my:=1*(y0-30)/b;//по Y
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
for i:=1 to b do//создаем оси координат
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my)); //засечки на оси Y
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  //подпись оси Х
  textout(x0+round(i*mx),y0+10,inttostr(i));
   //подпись оси Y
  textout(x0-25,y0-round(i*my),inttostr(i));
  textout(x0-20,y0+round(i*my),inttostr(-i));
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-10,y0-15,'X');
textout(x0+5,10, 'Y');
 
x:=a;
while x<=b do
 begin
  if x>0 then  setpixel(x0+round(x*mx),y0-round(F(x)*my),clBlue);
  setpixel(x0+round(x*mx),y0-round(F(x)*my),clred);
  x:=x+E;
 end;
 setfontsize(11);
textout(x0+300,y0-170,'F := sqrt(x)-3*sin(x)');
 
begin
x11:=2.5;
x22:=7.4;
Randomize;
Repeat
  xxx:=2.5+7.4*random;
y22:=F(xxx)/my;
if y22<E then
 
line(round(x0+2.5*mx+xxx),y0,round(x0+2.5*mx+xxx),y0+round(y22),clgreen)
Else 
line(round(x0+2.5*mx+xxx),y0,round(x0+2.5*mx+xxx),y0+round(y22),clyellow);
 
begin
n:=round((x22-x)/E+1);
mn:=F(x);
for iii:=1 to n do
x:=x+E*(iii-1);
yyy:=F(x);
end;
Until
yyy>mn;
line(x0+round(xxx*mx),y0,x0+round(xxx*mx),round(y22),clblue);
End;
end.