Uses Graph, CRT;
VAR
 i,j:INTEGER;
 S:String;
 x,y:Real;

BEGIN
 InitGraph(<параметры задайте сами>);
 Line(20,465,620,465);
 Line(320,5,320,465);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 FOR i:=0 TO 20 DO
  begin
   Line(20+i*30,455,20+i*30,465);
   If (i mod 2)=0 then
    begin
     Str((i-10)/10:4:1,S);
     OutTextXY(20+i*30,470,S);
    end;
  end;

 SetTextJustify(RightText,CenterText);
 FOR i:=0 TO 19 DO
  begin
   Line(320,5+i*23,330,5+i*23);
   Str((-i)/20*2.3:4:1,S);
   OutTextXY(315,5+i*23,S);
  end;
 SetLineStyle(SolidLn,0,ThickWidth);
 MoveTo(20,5+ROUND(-460*(-2)/2.3));
 For i:=-99 to 100 do
  begin
   x:=i/100;
   y:=SQR(x)+x-2;
   LineTo(20+300+ROUND(x*300),5+ROUND(-460*y/2.3));
  end;
 ReadKey;
 CloseGraph;
END.