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

maxx:=getmaxx;

setfillpattern (full, black);

bar (11,11,maxx-21,254);

setcolor (green);

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

setcolor (white);

str:='Esc - вихiд.';

outtextxy (30,255,str);

settextstyle (defaultfont,horizdir,2);

setcolor (red);

str:='Курсова робота';

outtextxy (180,30,str);

settextstyle (defaultfont,horizdir,1);

setcolor (white);

str:='З дисциплiни:';

outtextxy (100,60,str);

setcolor (13);

str:='Основи програмування та алгоритмiчнi мови';

outtextxy (120,80,str);

setcolor (white);

str:='Виконав:';

outtextxy (100,100,str);

setcolor (13);

str:='Студент групи КС-91';

outtextxy (120,120,str);