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

label 1;

procedure draw;

var str: string;

begin

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

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,'ПРО АВТОРА');