program gg;
uses crt, graph;
var x,y,gd,gm:integer;
begin
gd:=9;
gm:=2;
initgraph(gd,gm,'BGI\');

setbkcolor(15);
setcolor(8);
Line(100,20,100,220);{os y}
line(10,220,200,220); {os x}
line(20,220,20,20);{-4}
line(140,220,140,20);{2}
outtextxy(100,10,'Y');
OUTTEXTXY(200,230,'X');
y:=200;
x:=20;
repeat
putpixel(100,y,14);
inc(y,-20)
until y=40;
repeat
putpixel(x,220,14);
inc(x,20)
until x=180;
OUTTEXTXY(20,230,'-4');
OUTTEXTXY(40,230,'-3');
OUTTEXTXY(60,230,'-2');
OUTTEXTXY(80,230,'-1');
OUTTEXTXY(100,230,'0');
OUTTEXTXY(120,230,'1');
OUTTEXTXY(140,230,'2');
OUTTEXTXY(104,200,'1');
OUTTEXTXY(104,180,'2');
OUTTEXTXY(104,160,'3');
OUTTEXTXY(104,140,'4');
OUTTEXTXY(104,120,'5');
OUTTEXTXY(104,100,'6');
begin
setcolor(4);
line(100,220,120,214);
line(120,214,140,186);
line(100,220,80,214);
line(80,214,60,186);
line(60,186,40,160);
line(40,160,20,114);
setcolor(8);
outtextxy(10,240,'y=(1/3)*(x^2)');
outtextxy(10,280,'1) x=0 y=0');
outtextxy(10,290,'2) x=1 y=0,33');
outtextxy(10,300,'3) x=2 y=1,33');
outtextxy(10,310,'4) x=-1 y=0,33');
outtextxy(10,320,'5) x=-2 y=1,33');
outtextxy(10,330,'6) x=-3 y=3');
outtextxy(10,340,'7) x=-4 y=5,33');


end;

readln;
end.