Изменить код для функции

Изменить код под функцию ctg(1.05*x)-x^2=0 Точность ?=0.0001
Изменить этот код:
function F(x:real):real;
begin
F:=(x*x*x)-(3*x*x)+1.5;
end;
function S4et(a,b,e:real):real;
var c,x:real;
begin
if F(a)*F(b)<0 then
begin
repeat
c:=(a+b)/2;
if F(a)*F(c)<=0 then b:=c
else a:=c;
until b-a<e;
x:=(a+b)/2;
end
else x:=a-1;
S4et:=x;
end;
procedure NAME_P (a,b,e:real);
var x:real;
begin
writeln('на интервале [',a:0:2,',',b:0:2,'] с точностью ',e:0:5);
x:=S4et(a,b,e);
if x<a then write('На данном интервале корней нет!')
else writeln('x=',x:0:5);
end;
var a,b,c,x,e:real;
i,j:integer;
grany:array[1..6] of real;
begin
grany[1]:=0;
grany[2]:=1;
grany[3]:=-2;
grany[4]:=0;
grany[5]:=-5;
grany[6]:=-4;
repeat
write('Введите точность e=');readln(e);
until (e>0)and(e<1);
writeln('Нахождение приближенного значения корня уравнения');
writeln(' x^3-3x^2+1.5=0');
writeln(' на интервале [0;1] с точностью ',e:0:5);
for i:=1 to 3 do
begin
NAME_P(grany[2*i-1],grany[2*i],e);
end;
end.