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

for i2:=0 to 7 do write(f1,a[i1,i2],' ');

writeln(f1);

end;

inc(r);

writeln(f1);

end;

readln(f);inc(n);q:=0;

end;

close(f);

close(f1);

writeln(r);

writeln('ok');

readln;

end.

Программа 3. Нахождение изоморфных колец:

program izomorf;

uses crt;

const p=1;

type mas=array [0..7,0..7] of integer;

mas1=array [1..8,1..8] of integer;

var a,b:mas;

y:mas1;

i,j,n,i1,i2,r,w,h,g,d:integer;

f,f1,f2:text;

label 1;

procedure alfa(a:mas; var b:mas);

var k1,k2,j1,j2,z1,z2,z3,z4,q3,w3:integer;

begin

for k1:=0 to 7 do begin