Как пользоватса этой програмой ?

Мне нужно :
. x lg(x)-1.2=0
x3-0.1x2+0.4x-1.5=0
Уточнить корни уравнений с точностью 0,001
2.1.Последовательно используя компьютерную программу из Приложения, уточнить каждый корень с заданной точностью.
2.2.Выполнить проверку для каждого корня, подставляя их значения в соответствующее уравнение.
2.3.Все вычисления проводить с количеством разрядов в дробной части десятичного числа минимум на один разряд больше, чем заданная точность.
Текст програмы для Pascal ABC:
program labrab4;
Var
d,e,f,xn,xm,xp:real;
label 10;
function fun(x:real):real;
begin
{В эту строку записать после знака равно выражение для уравнения}
fun:=x*x*x-0.1*x*x+0.4*x-1.5;
end;
function fun1(x:real):real;
begin
{В эту строку записать после знака равно выражение для
первой производнойуравнения}
fun1:=3*x*x+0.2*x+0.4;
end;
function fun2(x:real):real;
begin
{В эту строку записать после знака равно выражение для
второй производнойуравнения}
fun2:=6*x
end;
begin
cls;
writeln('Решение нелинейных уравнений методом Ньютона (касательных) ');
writeln;
begin
writeln ('Введите данные');
write ('a=');read(d);
write ('b=');read(e);
write ('Точность=');read(f);
writeln('Значения функции на концах исходного интервала');
write('f(a)=',fun(d),' ','f(b)=',fun(e));
writeln; writeln;
if (fun(d)*fun(e)>0) then
begin
writeln('На указанном интервале нет корня');
goto 10;
end;
if (fun(d)*fun2(d)>0) then
xn:=d
else
xn:=e;
repeat
xm:=xn-(fun(xn)/fun1(xn));
xp:=xn;
xn:=xm;
writeln ('Текущее приближение корня: ',xm:8:4);
until abs(fun(xp)/fun1(xp))