На данном отрезке найти все корни уравнения / Pascal ABC

[Veronika_13]

2*ctg(3*x)-2^x=0 помогите найти ошибку. при введении интервала -3,4 должно быть 7 корней, а выводит 13. надо наверное добавить,что бы sin и cos не равнялись 0, только не знаю где.
код:

program _5;
uses crt;
const h=0.1;
var A,B,E,C,D,XN,XK,S:real; k: integer;
function f(X:real):real;
begin
F:=2*cos(3*x)/sin(3*x)-exp(ln(2)*x)
end;
begin
clrscr;
repeat
write('a='); readln(a);
write('b>a b='); readln(B);
write('0<e<1 '); readln(E);
until (A<B) and (E>0) and (E<1);
k:=0; C:=A;
repeat
D:=C+H;
if F(C)*F(D)<=0 then
begin
XN:=C; XK:=D; k:=1;
while ABS(XK-XN)>E do
begin S:=(XN+XK)/2;
if F(XN)*F(S)<=0 then XK:=S else XN:=S
end;
write ((XK+XN)/2:10:6);
end;
C:=D;
until C+H>B;
if K=0 then writeln ('Корней нет');
readln;
end.