Bài tập đồ họa pascal (vẽ quyển sách)

Program vesach;
uses crt,graph;
var x,y,mh,mot:integer;
begin
mh:=detect;
initgraph(mh,mot,`d:pgi`);
setbkcolor(blue);
setfillstyle(9,red);
bar(200,60,495,460);
arc(220,400,190,252,64);(*raysach*)
line(158,415,158,16);
arc(220,0,195,250,64);
line(158,16,450,16);
arc(512,0,195,252,64);
line(200,60,495,60);
setfillstyle(9,yellow);
floodfill(250,58,white);
setfillstyle(1,white);
bar(201,61,495,120);
line(200,60,200,460);
setfillstyle(9,lightgreen);
floodfill(166,158,white);
settextstyle(1,horizdir,3);
setcolor(red);
outtextxy(240,70,`SO GD-DT CA MAU`);
settextstyle(4,horizdir,6);
settextjustify(1,1); delay(1000);
setcolor(white);outtextxy(350,150,`Giao An`);
outtextxy(350,200,`Tin hoc 11`);
settextstyle(0,horizdir,1);
setcolor(yellow); delay(1000);
outtextxy(370,350,`Giao vien: Nguyen Thai Hung`);
outtextxy(370,370,`Don vi: Truong THPT Thoi Binh`);
setfillstyle(1,white);
bar(201,400,495,459);
settextstyle(7,horizdir,2);
setcolor(red);
outtextxy(350,420,`Ca Mau, 08/2011`);
settextstyle(1,vertdir,2);
setcolor(white); delay(1000);
outtextxy(165,165,`Cau truc du lieu`);
settextstyle(1,vertdir,1);
outtextxy(185,175,`+ Giai thuat`);
setcolor(red); delay(1000);
settextstyle(1,vertdir,3);
outtextxy(175,342,`Chuong trinh =`); delay(2000); readln;
closegraph;
End.