uses graph;
var
s:string;
x:real;
a,b:integer;
begin
initgraph(a,b,'');
setcolor(white);
line(0,GetMaxY div 2,GetMaxX,GetMaxY div 2);
line(GetMaxX-20,GetMaxY div 2-5,GetMaxX,GetMaxY div 2);
line(GetMaxX,GetMaxY div 2,GetMaxX-20,GetMaxY div 2+5);
           {tiek uzziimeetas asis}
line(GetMaxX div 2,0,GetMaxX div 2-5,20);
line(GetMaxX div 2,0,GetMaxX div 2+5,20);
line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY);
x:=-30;     {pieshkjir x-am saakuma veertiibu}
settextstyle(0,1,0); {uzstaada teksta stilu uz vertikaalo}
for a:=1 to 57 do
    begin
    setcolor(white);
    line(round(GetMaxX/60*a),GetMaxY div 2+5,round(GetMaxX/60*a),GetMaxY div 2);
    if (a mod 5=0) and (a<>30) or (a=31) then
       begin
       str(a-30,s);    {iedaljas veertiibu paarveersh par textu (string)}
       setcolor(green);
       outtextxy(round(GetMaxX/60*a)+5,GetMaxY div 2+7,s);
       end;      {tiek izdrukaata iedaljas veertiiba x y koordin}
    end;
settextstyle(0,0,0);  {texta stils - horizontaals}
for a:=3 to 39 do
    begin
    setcolor(white);
    line(GetMaxX div 2,round(GetMaxY/40*a),GetMaxX div 2+5,round(GetMaxY/40*a));
    if (a mod 5=0) and (a<>20) or (a=19) then begin
    setcolor(green);
    str(20-a,s);
    outtextxy(GetMaxX div 2+7,round(GetMaxY/40*a)-3,s);
    end;
    end;
setcolor(green);
outtextxy(GetMaxX div 2-12,GetMaxY div 2+8,'0');{tiek atziimeeta 0}

repeat     {transformee -30 uz 0 un 30 uz GetMaxX}
putpixel(round((x+30)/60*GetMaxX),round((1/2-x*x*x/(2*x*x-3*x-12)/40)*GetMaxY),red);
x:=x+0.0002;
until x>30;   {kaameer x sasniedz 30}

setcolor(Yellow);
outtextxy(470,150,'y=x^3/(2x^2-3x-12)');
readln;
closegraph;
end.