Something

program lab7;

const max=11;

type	Pmatrix=array[1..max,1..max] of real;

var E,E2,E3,E4,E5,E6,E7,E8,E9,E10,E11,EE:Pmatrix;
    i,j:integer;

function MulMatrix(source1, source2: PMatrix): PMatrix;
var i, j, k: Integer;
     Dest: PMatrix;
begin
   for i:=1 to max do
     for j:=1 to max do begin
       Dest[i, j]:=0;
       for k:=1 to max do
	  begin
          	Dest[i, j] := Dest[i, j] + Source1[i,k]*Source2[k,j];
		if Dest[i,j]<>0 then Dest[i,j]:=1;
	  end;
     end;
   MulMatrix := Dest;
end;

function SumMat(E,E2,E3,E4,E5,E6,E7,E8,E9,E10,E11:PMatrix): PMatrix;
var i,j:integer;
    EL:PMatrix;
begin
	for i:=1 to max do
	for j:=1 to max do
	EL[i,j]:=E[i,j]+E2[i,j]+E3[i,j]+E4[i,j]+E5[i,j]+E6[i,j]+E7[i,j]+E8[i,j]+E9[i,j]+E10[i,j]+E11[i,j];
	SumMat:=EL;
end;

begin
	E[1,1]:=0; E[1,2]:=1; E[1,3]:=1; E[1,4]:=0; E[1,5]:=1; E[1,6]:=0; E[1,7]:=0; E[1,8]:=0; E[1,9]:=0; E[1,10]:=0; E[1,11]:=0;
	E[2,1]:=0; E[2,2]:=0; E[2,3]:=0; E[2,4]:=0; E[2,5]:=1; E[2,6]:=1; E[2,7]:=0; E[2,8]:=0; E[2,9]:=0; E[2,10]:=0; E[2,11]:=0;
	E[3,1]:=0; E[3,2]:=0; E[3,3]:=0; E[3,4]:=1; E[3,5]:=0; E[3,6]:=0; E[3,7]:=0; E[3,8]:=0; E[3,9]:=1; E[3,10]:=0; E[3,11]:=0;
	E[4,1]:=1; E[4,2]:=0; E[4,3]:=0; E[4,4]:=0; E[4,5]:=0; E[4,6]:=0; E[4,7]:=0; E[4,8]:=0; E[4,9]:=0; E[4,10]:=0; E[4,11]:=0;
	E[5,1]:=0; E[5,2]:=0; E[5,3]:=0; E[5,4]:=0; E[5,5]:=0; E[5,6]:=0; E[5,7]:=0; E[5,8]:=0; E[5,9]:=0; E[5,10]:=0; E[5,11]:=1;
	E[6,1]:=0; E[6,2]:=0; E[6,3]:=0; E[6,4]:=0; E[6,5]:=0; E[6,6]:=0; E[6,7]:=1; E[6,8]:=0; E[6,9]:=1; E[6,10]:=0; E[6,11]:=0;
	E[7,1]:=0; E[7,2]:=0; E[7,3]:=0; E[7,4]:=0; E[7,5]:=0; E[7,6]:=0; E[7,7]:=0; E[7,8]:=0; E[7,9]:=0; E[7,10]:=0; E[7,11]:=0;
	E[8,1]:=0; E[8,2]:=0; E[8,3]:=1; E[8,4]:=0; E[8,5]:=1; E[8,6]:=0; E[8,7]:=0; E[8,8]:=0; E[8,9]:=0; E[8,10]:=0; E[8,11]:=0;
	E[9,1]:=0; E[9,2]:=0; E[9,3]:=0; E[9,4]:=0; E[9,5]:=0; E[9,6]:=0; E[9,7]:=0; E[9,8]:=0; E[9,9]:=0; E[9,10]:=0; E[9,11]:=0;
	E[10,1]:=0; E[10,2]:=0; E[10,3]:=0; E[10,4]:=0; E[10,5]:=0; E[10,6]:=0; E[10,7]:=1; E[10,8]:=1; E[10,9]:=0; E[10,10]:=0; E[10,11]:=0;
	E[11,1]:=0; E[11,2]:=0; E[11,3]:=0; E[11,4]:=0; E[11,5]:=0; E[11,6]:=0; E[11,7]:=0; E[11,8]:=1; E[11,9]:=1; E[11,10]:=1; E[11,11]:=0;
	E2:=MulMatrix(E,E);
	E3:=MulMatrix(E,E2);
	E4:=MulMatrix(E,E3);
	E5:=MulMatrix(E,E4);
	E6:=MulMatrix(E,E5);
	E7:=MulMatrix(E,E6);
	E8:=MulMatrix(E,E7);
	E9:=MulMatrix(E,E8);
	E10:=MulMatrix(E,E9);
	E11:=MulMatrix(E,E10);
	EE:=SumMat(E,E2,E3,E4,E5,E6,E7,E8,E9,E10,E11);
	for i:=1 to max do
	begin
		for j:=1 to max do
		write(EE[i,j]:2:0,' ');
	writeln;
	end;
writeln;
end.