Поиск корней сложной функции с использованием подпрограмм

[trung]

здравствуйте


program lab5;
uses crt;
const e=0.001;
c=0.1;
var a,b,x,xi,d,z,h,s1,s2,l,l1,e1:real;
n,i:integer;

function g(x:real):real;
begin

g:=(ln(0.25*x)+exp(0.1*x))/(exp(ln(sin(x)))+1.5);
end;

function f(d:real):real;
begin
n:=2;
z:=g(c)+g(d);
h:=(d-c)/n;
s2:=0;
s1:=g((c+d)/2);
l:=h/3*(z+4*s1);
repeat
l1:=l;
n:=n*2;
h:=(d-c)/n;
s2:=s2+s1;
i:=1;
s1:=0;
repeat
xi:=c+i*h;
s1:=s1+g(xi);
i:=i+2;
until i>n-1;
l:=h/3*(z+2*s2+4*s1);
until abs(l-l1)<e1;
e1:=e1*2;
f:=l;
end;

begin clrscr;
a:=0.2;
b:=8;
e1:=0.2;
repeat
x:=(a+b)/2;
if f(a)*f(x)<0
then b:=x
else a:=x;
until abs(b-a)<e;
writeln('Корень уравнения = ',a:5:2);
writeln('Значение функции = ',f(a):8:5);
readln;
end.

exitcode=207
помогите пожалуйста исправить

[evg_m]

ln(sin(x)) x[0.2 ... 8 ]

a:=0.2;
b:=8;

x=3.14 sin(x)=0
x>3.14 sin(x)<0 =>ln(sin(x)) =???