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

outtextxy (120,140,str);

settextstyle (defaultfont,horizdir,1);

setcolor (11);

str:='[email protected]';

outtextxy (120,220,str);

setcolor (12);

str:='20.V.2000';

outtextxy (500,220,str);

setcolor (red);

settextstyle (defaultfont,horizdir,1);

flash (180,30,502,45,0,12);

repeat

case readkey of

#27: exit:=true;

end;

until exit;

draw;

ramka;

end;

{******************** Рисует курсор в матрице к задаче №1 **************}

procedure curpos (x1,y1,x,y:integer);

var xc,yc:integer;

begin

xc:=40+x1*10;

yc:=40+y1*10;