Начертить график функции exp(x)/(sin(x)*cos(x)

uses graph;
const xn=-5; {интервал и шаг по Х}
      xk=5;
      dx=0.0001;
      xmax=640;{максимальные и средние значения по осям}
      ymax=480;
      x0=320;
      y0=240;
function f(x:real):real;{функция}
begin
f:=exp(x)/sin(x)/cos(x);
end;
var mx,my:real;{масштабы по осям}
procedure osi;
var i:byte;
    s:string;
begin
line(0,y0,xmax,y0);
line(x0,0,x0,ymax);
outtextxy(xmax-20,y0-20,'X');
outtextxy(x0+5,0,'Y');
outtextXY(x0+5,y0+10,'0');
mx:=(x0-20)/5;
my:=(y0-20)/100;
for i:=1 to 10 do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
  line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
  str(i*10,s);
  outtextXY(x0-25,y0-round(i*my*10),s);
  outtextXY(x0-35,y0+round(i*my*10),'-'+s);
 end;
end;
procedure grafik;
var x:real;
begin
x:=xn;
while x<=xk do
 begin
  if(abs(sin(x))>dx)and(abs(cos(x))>dx) then {исключаем разрывы функции}
  putpixel(x0+round(x*mx),y0-round(f(x)*my),12);
  x:=x+dx;
 end;
end;
var gd,gm:integer;
begin
initgraph(gd,gm,'');
osi;
grafik;
readln;
end.