... BAI_TAP_CHU_DE_LON1; Uses Dos,Crt,graph; Type mang = array [1. .10 ] of string; m1 = array [1. . 21] of byte; Const dong = 10 ; old = 15 ; tg = 60000; MAU =15 9; mau2 =12 0; Var k:array [1. .10 ] of string; ... setfillstyle (1, 15); for i: =1 to 7 do begin settextstyle (1, 0 ,1) ; setcolor (10 ); ellipse(260 ,13 5+30*i,0,360,7,7); fillellipse(260 ,13 5+30*i,5,5); outtextxy(280 ,12 0+30*i,K[i]); end; for i: =1 to 7 do ... halt (1) ; end else setfillstyle (1, 7); BAR (1, 1,GETMAXX,GETMAXY); setfillstyle (1, 9); BAR(6 ,10 0,GETMAXX-5,GETMAXY-6); setfillstyle(8,8); BAR(6 ,10 0,GETMAXX- 410 ,GETMAXY-6); setfillstyle(8,8); BAR(395 ,10 0,GETMAXX-5,GETMAXY-6);...