... Ellipse(x,y,0, 360 ,r,r1); Ellipse(x,y-r3,194,3 46, r,r2); Line(x+r2,y-r2,x+r4,y-r4); circle(x+r4,y-r4,r5); line(x-r2,y-r2,x-r4,y-r4); circle(x-r4,y-r4,r5); x1:=x-r; y1:=y-r4-r5; x2:=x+r; ... linerel(round(130*cos((i* 6- 8 9)*pi/180)),round(130*sin((i* 6- 8 9)*pi/180))); moveto(320,240); linerel(round(130*cos((i* 6- 9 0)*pi/180)),round(130*sin((i* 6- 9 0)*pi/180))); moveto(320,240); linerel(round(130*cos((i* 6- 9 1)*pi/180)),round(130*sin((i* 6- 9 1)*pi/180))); ... t2< =60 0 do Begin setcolor(green); Trường ðại học Nông nghiệp 1 - Giáo trình Lập trình nâng cao - 165 Bài tập ứng dụng chương 6 1. Nhập và cho chạy thử chương trình...