Програмування Pascal, Детальна інформація

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

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в';