Uses CRT, Graph;
Var
 i:Integer;
 x,y:Real;
 S:String;
Function F(z:real):real;
begin
 F:=Ln(z+2)/Ln(10)-Cos(z*2);
end;

Begin
 InitGraph(...); {Здесь - самостоятельно}
 SetLineStyle(SolidLn,0,ThickWidth);
 Line(20,240,620,240);
 Line(200,20,200,460);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 For i:=-3 to 7 do
  if i<>0 then
   begin
    Line(200+60*i,240-4,200+60*i,240+4);
    STR(i,S);
    OutTextXY(200+60*i,240+10,S);
   end;
 SetTextJustify(RightText,CenterText);
 For i:=-2 to 2 do
  if i<>0 then
   begin
    Line(200-4,240-110*i,200+4,240-110*i);
    STR(i,S);
    OutTextXY(200-10,240-110*i,S);
   end;
 SetLineStyle(SolidLn,0,NormWidth);
 SetColor(Yellow);
 x:=-3.0+61/60;
 y:=F(x);
 MoveTo(Round(200+x*60),Round(240-y*110));
 For i:=62 to 600 do
  begin
   x:=-3.0+i/60;
   y:=F(x);
   LineTo(Round(200+x*60), Round(240-y*110));
  end;
 ReadKey;
 CloseGraph;
End.