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

setfillpattern (full,black);

setcolor (red);

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

setcolor (green);

str:='Оце i е задача з графiки.';

outtextxy (200,40,str);

setcolor (white);

for i:=0 to 15 do

begin

setcolor (i);

circle (350,150,i);

i:=i+1;

end;

size:=imagesize (335,135,365,165);

getmem (p,size);

getimage (335,135,365,165,p^);

putimage (335,135,p^,xorput);

a:=0;

b:=50;

c:=90;

x1:=1000;

x2:=1000;

x3:=1000;

repeat

10: