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

b[4,5]:=a[b[4,1],b[4,4]]; b[4,6]:=a[b[4,1],b[4,5]];

b[4,7]:=a[b[4,1],b[4,6]];

for t5:=1 to 7 do b[5,t5]:=a[b[1,t5],b[4,t5]];

for t6:=1 to 7 do b[6,t6]:=a[b[1,t6],b[5,t6]];

for t7:=1 to 7 do b[7,t7]:=a[b[1,t7],b[6,t7]];

end;

procedure zap(a:mas);

var f1:text;

i,j,k1,k2,k3,k4,r:integer;

begin

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

rewrite(f1);

r:=0;

for k1:=0 to 7 do

for k2:=0 to 7 do

for k3:=0 to 7 do

for k4:=0 to 7 do begin

zap1(k1,k2,k3,k4,a,b);

for i:=1 to 7 do begin

for j:=1 to 7 do write(f1,b[i,j]);

writeln(f1);

end;

writeln(f1); inc(r);

end;

close(f1);

writeln(r);

end;

begin

clrscr;