задача на Delphi

[Potetenkin]

Ребят помогите исправить ошибку в задачи...
условие:
Рассматриваются два ур-я вида F(x)=0,варианты уже добавленны в задаче.Программа должна дважды вызывать подпрограмму приближенного решения ур-я ,которая своим параметром имеет функцию,определяющую левую часть ур-я.
program

Project4;


{$APPTYPE CONSOLE}

uses
SysUtils;

type fn=function(x:real):real;
var r1,r2,a,b,e:real;

function fx1(x:real):real;
begin
fx1:=exp(1/3*ln(x))-abs(14*sin(x+2/3))/(x+pi)+exp(1.9*x)+x*sqr(x)
end;
function fx2 (x:real):real;
begin
fx2:=abs(sin(exp(2/3*ln(x))))-4*ln(1.5-x)-sqr(0.31+(exp(2*pi-x)))/9
end;


function root(fx:fn; a,b,e:real):real;
var x,c:real;
begin
while abs(a-b)>e do
begin
c:=(a+b)/2;
if fx(a)*fx(c)<0 then
b:=c
else
a:=c;
end;
x:=(a+b)/2;
root:=x;
end;

begin
writeln('input a,b,e');
readln(a, b, e);
r1:=root(fx1,a,b,e);
r2:=root(fx2,a,b,e);
writeln('koren r1=',r1:7:4);
writeln('koren r2=',r2:7:4);
readln ;

end.

[sheka]

Сделаю в лучшем виде! 255507394

[frilans]

Пиши, решу Дёшево
ICQ: 410691984

[QuadroX]

ICQ: 323787261
Email: pschegolevatykh@gmail.com

Обращайтесь.
P.S. Даже не знаю сколько брать за такую работу.

[fat-lip]

437675148 пиши, я знаю)