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

matr [ti,tj]:=1;

inc (ti);

if matr[ti,tj]<>0 then yes:=true;

until yes;

inc (tj);

ti:=i;

if matr[ti,tj]<>0 then ok:=true;

until ok;

ok:=false;

end;

end;

end;

setfillpattern (full,black);

bar (150,55,600,200);

setcolor (white);

st:='В матрицi';

outtextxy (230,60,st);

str (num,st);

outtextxy (310,60,st);

st:='прямокутникiв';

outtextxy (330,60,st);

setcolor (green);

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

setcolor (white);

st:='Натиснiть любу клавiшу.';