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

bar (x,y,x+8,y+8);

end;

end;

end;

{*************** Процедура подщета кол-ва прямоуг. ********************}

procedure count;

var i,j,num,ti,tj:integer;

yes,ok:boolean;

st:string;

begin

num:=0;

yes:=false;

ok:=false;

for j:=1 to 8 do

begin

for i:=1 to 8 do

begin

if matr[i,j]=0 then

begin

num:=num+1;

tj:=j;

ti:=i;

repeat

yes:=false;

repeat