Рассчитать все значения x, когда функция y(x)= sin(2/x) + (1/0.3*x)- 2cos(1/x) обращается в 0 — Pascal(Паскаль)

[AdSense-B]

uses crt;
const e=0.001;
function F(x:real):real;
begin
F:=sin(2/x)+1/(0.3*x)-2*cos(1/x);
end;
Var x,xn,xk,y1,y2:real;
begin
clrscr;
xn:=-2*pi;
xk:=2*pi;
writeln('Корни уравнения sin(2/x)+1/(0.3*x)-2*cos(1/x)=0 на интервале -2pi - 2pi:');
y1:=F(xn);
y2:=F(xn+e);
x:=xn;
while x<=xk do
 begin
  if y1*y2<0 then writeln(x:0:4);
  y1:=y2;
  x:=x+e;
  if abs(x)>e then y2:=F(x);
 end;
readln
end.