Методика підрахунку прямокутників різної форми

{************** Сейчас рисуем окно и рамку ******************}

cleardevice;

setbkcolor (black);

setcolor (green);

setfillpattern (full, blue);

bar3d (10,10,maxx-20,265,10,topon);

setfillpattern (full, green);

bar (180,10,181,265);

setfillpattern (full, black);

bar3d (10,250,maxx-20,265,0,topon);

setcolor (yellow);

setfillpattern (full,black);

bar3d (40,40,150,65,0,topon);

bar3d (40,80,150,105,0,topon);

bar3d (40,120,150,145,0,topon);

bar3d (40,160,150,185,0,topon);

bar3d (40,200,150,225,0,topon);

setcolor (15);

outtextxy (50,50,'ЗАДАЧА № 1');

outtextxy (50,90,'ЗАДАЧА № 2');

outtextxy (50,130,'ЗАДАЧА № 3');

outtextxy (50,170,'ПРО АВТОРА');

outtextxy (50,210,'ВИХIД В DOS');

str:=('Клавiшами '#24#25' виберiть потрiбний пункт меню; ENTER - пiдтвердити вибiр.');

outtextxy (30,255,str);