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

end;

{*********************** Задание №3 **************************}

procedure zad3;

var str:string;

exit:boolean;

a,b,c,i,x1,x2,x3:integer;

p: pointer;

size: word;

label 10;

begin

setfillpattern (full, black);

setcolor (green);

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

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

setcolor (white);

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

outtextxy (30,255,str);

randomize;

exit:=false;

setcolor (black);

setfillpattern (brick,red);

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

setfillpattern (full,black);

setcolor (red);

bar3d (26,24,maxx-36,236,0,topon);