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

begin

pixcolor:=getpixel (xps,yps);

if pixcolor <>bk then putpixel (xps,yps,oc)

end;

end;

end;

{******************* Рамка курсора ****************}

procedure ramka;

var t:integer;

begin

setcolor (blue);

t:=lnum*40-5;

rectangle (25,t,165,t+36);

setcolor (12);

t:=pnum*40-5;

rectangle (25,t,165,t+36);

flash (50,t+13,140,t+23,black,white);

end;

{********************** Процедура "Про автора" *******************}

procedure about;

var str:string;

exit:boolean;

maxx:integer;

begin

exit:=false;