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

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;

maxx:=getmaxx;

setfillpattern (full, black);

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