Pascal

[HighVoltage]

3x-4ln x-5=0
Оторезок, который имеет корень [2;4]
Методом Ньютона
Точное значение кореня: 3.2300
Помогите пожалуйста!
Нужно решить это математическое уровнение и создать программу

[IT-man]

const
eps=0.0001; 
var
a,x,y,x1,f,proiz:real;
begin
x:=2;    
repeat           
 x1:=x;           
 f:=3*x-4*ln(x)-5; 
 proiz:=3-4/x;   
 y:=f/proiz;    
 x:=x-y ;       
until abs(x-x1)<=eps;
writeln('x=',x:12:9);
readln;
end.

x= 3.229959440