Дипломная работа: Восьмиэлементные ассоциативные кольца

if b[i1,j]=-2 then b[i1,j]:=1;

end;

{glav(b);}

for i1:=0 to 7 do begin

for j:=0 to 7 do write(f,b[i1,j],' ');

writeln(f);

end;

writeln(f);

end;

end;

end;

begin

clrscr;

assign(f1,'a:\vse_z21.txt');

reset(f1);

assign(f2,'a:\28.txt');

reset(f2);

assign(f,'a:\xx.txt');

rewrite(f);

{assign(f3,'a:\ist.txt');

rewrite(f3);

assign(f8,'a:\pom.txt');

rewrite(f8);}sc(a);

for g:=1 to 28 do begin

basis(y);{d:=1;g:=0;}

{while d<=t do begin}

{inc(g);writeln(g);}

{for j1:=0 to 7 do begin

for i2:=0 to 7 do write(f3,a[j1,i2]);