... bangkt;(*======================================================*)procedure Gioi_thieu;Procedure Duongchay(ax,ay,bx,by:integer;mau:byte);beginsetfillstyle(1,mau);bar(ax,ay,bx,by);end;begini:=0;j:=640; ... Tiep Tuc ');outtextxy(k,420,'Nhan Phim Bat Ky De Tiep Tuc ');delay(10);duongchay(0,422,getmaxx,439,1);until (keypressed) or (i>1500);if i>5 then exit;end;(*============================================================*)procedure ... exit;end;(*============================================================*)procedure nhap;begintextbackground(1);clrscr;textcolor(14);Window(10,5,70,20);write('Ban hay nhap vao so phan tu cua mang can sap xep (n>0,n<=11), n= ');repeatreadln(n);if...