Const
 N=5;

Var
 M:Array[1..N,1..N] of real;
 i,j,k:Byte;
 SP,Den:Real;
 D:Array[1..N] of Real;

Begin
 Den:=1;
 For i:=1 to N do
  begin
   Den:=Den*i;
   For j:=1 to N do
    begin
     M[i,j]:=(2*i*j+4*i)/Den;
     Write(M[i,j]:8:4);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to N do
  begin
   SP:=0;
   For j:=1 to N do
    SP:=SP+M[2,j]*M[j,i];
   Writeln('X',i,'= ',SP:0:4);
  end;
 Writeln;
 For i:=1 to N do
  D[i]:=M[i,i];
 Writeln('Ordered diagonal:');
 For i:=1 to N-1 do
  For j:=1 to N-i do
   If D[j]<D[j+1] then
    begin
     Den:=D[j];
     D[j]:=D[j+1];
     D[j+1]:=Den;
    end;
 For i:=1 to N do Write(D[i]:8:4);
 Readln
End.