График функции F(x,y)=x^2+y^3-x^3=0

program EvgeniiSp;
uses GraphABC, Events;
 
//------- Solution ------//
 function Solution(x: real): real;
  begin
   result:=power(x*x*x-sqr(x),1/3);
  end;
 
//-------- Drawing_graph ------//
 procedure Drawing_graph(color: integer);
  const
   dx = 0.1; xn = 1; xk = 13;
  var
   x,y,ymax,xmax: real;
   ww,wh,xs,ys: integer;
 
 //------- Conversion_y ------//
  function LogicToScreen_y(y: real): real;
   begin
    result:=(wh div 2)*y/ymax;
   end;
 
 //------- Conversion_x ------//
  function LogicToScreen_x(x: real): real;
   begin
    result:=(ww div 2)*x/xmax;
   end;
 
  begin
   y:=0;
   SetPenWidth(1);
   ww:=WindowWidth;
   wh:=WindowHeight;
   SetPenColor(clGray);
   TextOut((ww div 2)-10,(wh div 2)+4,'0');
   moveTo(0,wh div 2);
   lineTo(ww,wh div 2);
   TextOut(ww-12,(wh div 2)+3,'X');
   moveTo(ww div 2,0);
   lineTo(ww div 2,wh);
   TextOut((ww div 2)+5,3,'Y');
//-------------------------
   x:=xn;
   ymax:=0;
   xmax:=0;
   while x <= xk do
    begin
     y:=Solution(x);
     if abs(y) > ymax then ymax:=abs(y);
     if abs(x) > xmax then xmax:=abs(x);
     x:=x+dx;
    end;
//-------------------------
   x:=xn;
   SetPenWidth(1);
   SetPenColor(color);
   while x <= xk do
    begin
     y:=Solution(x);
     ys:=Round(LogicToScreen_y(y));
     xs:=Round(LogicToScreen_x(x));
     if x = xn then moveTo((ww div 2)+xs,(wh div 2)-ys)
        else lineTo((ww div 2)+xs,(wh div 2)-ys);
     //SetPixel((ww div 2)+xs,(wh div 2)-ys,color);
     x:=x+dx;
    end;
   Redraw;
  end;
 
//-------- Resize ------//
 procedure Resize;
  begin
   ClearWindow;
   Drawing_graph(clRed);
   Redraw;
  end;
 
begin
 SetWindowCaption('Ãðàôèê ôóíêöèè.');
 SetWindowSize(700,500);
 LockDrawing;
 CenterWindow;
 Drawing_graph(clRed);
 OnResize:=Resize;
end.

var
 grDriver: integer;     // äðàéâåð
 grMode:  integer;      // ãðàôè÷åñêèé ðåæèì
 grPath:   string;         // ìåñòî ðàñïîëîæåíèÿ äðàéâåðà
 ErrCode: integer;      // ðåçóëüòàò èíèöèàëèçàöèè ãðàô. ðåæèìà
 
begin
 grDriver:=VGA;       // ðåæèì VGA
 grMode:=VGAHi;       // ðàçðåøåíèå 640x480
 grPath:='ñ:\tp\bgi'    // ôàéë EGAVGA.BGI, íàõîäèòñÿ â êàòàëîãå c:\tp\bgi
 InitGraph(grDriver, grMode, grPath);
 ErrCode:=GraphResult;
 if ErrCode <> grOk then Halt(l);
 
  // Îñíîâíîå òåëî ïðîãðàììû....
 
 CloseGraph;
end.