Курсовая работа: Написание программы для удаления элементов и очистки внешних таблиц

{

d2=1;

setfillstyle(SOLID_FILL,1);

for (i=0;i<3;i++)

{

bar(20,300+i*60,130,330+i*60);

liniya2(i,9,0);

}

while (a!=27)

{

setcolor(6);

outtextxy(27,310,str1);

outtextxy(27,370,str2);

outtextxy(27,430,str3);

if ((a==80)||(a==72))

{

if (a==80) d2++;

if (a==72) d2--;

if (d2>3) d2=1;

if (d2<1) d2=3;

}

if ((d2==1)&&(nomer==1))

{

setcolor(4);

outtextxy(27,310,str1);

liniya2(0,0,9);

a=getch();

liniya2(0,9,0);

if (a==13)