... begin xoa(k* 4-3 ,dong-3);delay(tg); writexyso((k-1)* 4-3 ,dong-3,207,n+1);delay(tg); end; xoa((j+1)* 4-3 ,dong-3);delay(tg); writexyso((j+1)* 4-3 ,dong,old,n+1);delay(tg); end; writexyso(n* 4-3 ,dong,old,n);delay(tg);{n} ... Rectangle(1,1,GETMAXX-1,GETMAXY-1); Setcolor(14); Rectangle(2,2,GETMAXX-2,GETMAXY-2); Setcolor(1); Rectangle(4,4,GETMAXX-4,GETMAXY-4); Setcolor(4); Rectangle(6,6,GETMAXX-6,GETMAXY-6); SETCOLOR(11); ... setfillstyle(1,9); BAR(6,100,GETMAXX-5,GETMAXY-6); setfillstyle(8,8); BAR(6,100,GETMAXX-410,GETMAXY-6); setfillstyle(8,8); BAR(395,100,GETMAXX-5,GETMAXY-6); setfillstyle(8,3); BAR(6,6,GETMAXX-6,90); Setcolor(9);...