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

b[1,k1]:=a[7,k1];

b[2,k1]:=a[2,k1];

b[3,k1]:=a[5,k1];

b[4,k1]:=a[4,k1];

b[5,k1]:=a[3,k1];

b[6,k1]:=a[6,k1];

b[7,k1]:=a[1,k1];

end;

for k2:=0 to 7 do begin

z1:=b[k2,3];z2:=b[k2,5];

b[k2,5]:=z1;b[k2,3]:=z2;

z3:=b[k2,1];z4:=b[k2,7];

b[k2,7]:=z3;b[k2,1]:=z4;

end;

for j1:=0 to 7 do

for j2:=0 to 7 do begin

if b[j1,j2]=1 then b[j1,j2]:=-1;

if b[j1,j2]=7 then b[j1,j2]:=-7;

end;

for j1:=0 to 7 do

for j2:=0 to 7 do begin

if b[j1,j2]=-1 then b[j1,j2]:=7;

if b[j1,j2]=-7 then b[j1,j2]:=1;

end;

for j1:=0 to 7 do

for j2:=0 to 7 do begin

if b[j1,j2]=5 then b[j1,j2]:=-5;

if b[j1,j2]=3 then b[j1,j2]:=-3;

end;