program gg;
uses crt, graph;
var a,x,y,gd,gm:integer;
begin
gd:=9;
gm:=2;
initgraph(gd,gm,'BGI\');
setbkcolor(15);
setcolor(8);
Line(170,20,170,420);
line(10,210,330,210);
outtextxy(170,10,'Y');
OUTTEXTXY(330,230,'X');
y:=420;
x:=10;
repeat
putpixel(170,y,14);
inc(y,-20)
until y=40;
repeat
putpixel(x,210,14);
inc(x,20)
until x=330;
Begin
setcolor(4);
line(190,40,210,110);
line(210,110,250,130);
line(250,130,330,110);
line(150,380,130,310);
line(130,310,90,290);
line(90,290,10,310);
setcolor(1);
OUTTEXTXY(190,220,'1');
OUTTEXTXY(210,220,'2');
OUTTEXTXY(250,220,'4');
OUTTEXTXY(325,220,'8');
OUTTEXTXY(140,40,'8,5');
OUTTEXTXY(160,110,'5');
OUTTEXTXY(160,130,'4');
OUTTEXTXY(150,190,'-1');
OUTTEXTXY(130,190,'-2');
OUTTEXTXY(90,190,'-4');
OUTTEXTXY(20,190,'-8');
OUTTEXTXY(190,380,'-8,5');
OUTTEXTXY(190,310,'-5');
OUTTEXTXY(190,290,'-4');
end;
begin
setcolor(6);
Rectangle(350,20,450,380);
line(400,20,400,380);
a:=60;
repeat
line(350,a,450,a);
inc(a,40)
until  a=380;
setcolor(1);
OUTTEXTXY(375,35,'x');
OUTTEXTXY(375,75,'1');
OUTTEXTXY(375,115,'2');
OUTTEXTXY(375,155,'4');
OUTTEXTXY(375,195,'8');
OUTTEXTXY(375,235,'-1');
OUTTEXTXY(375,275,'-2');
OUTTEXTXY(375,315,'-4');
OUTTEXTXY(375,355,'-8');
OUTTEXTXY(425,35,'y');
OUTTEXTXY(415,75,'8,5');
OUTTEXTXY(425,115,'5');
OUTTEXTXY(425,155,'4');
OUTTEXTXY(425,195,'5');
OUTTEXTXY(415,235,'-8,5');
OUTTEXTXY(425,275,'-5');
OUTTEXTXY(425,315,'-4');
OUTTEXTXY(425,355,'-5');
OUTTEXTXY(10,20,'y=(8/x)+(x/2)');
end;
readln;
end.