CONST
 N=6;
VAR
 A,B:Array[1..N,1..N] of Real;
 X:Array[1..N] of Real;
 Dummy,Y:Real;
 i,j,k:Byte;
BEGIN
 Writeln('Initial array (matrix A):');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Ln(j)-Ln(i);
     Write(A[i,j]:8:3);
    end;
   Writeln;
  end;
 Writeln;

 B:=A;

 Writeln('Ordered array (matrix B):');
 For j:=1 to N do
  For i:=1 to N do
   For k:=1 to N-i do
    If B[k,j]>B[k+1,j] then
     begin
      Dummy:=B[k,j];
      B[k,j]:=B[k+1,j];
      B[k+1,j]:=Dummy;
     end;

 For i:=1 to N do
  begin
   For j:=1 to N do Write(B[i,j]:8:3);
   Writeln;
  end;
 Writeln;

 Writeln('Vector X:');
 For i:=1 to N do
  begin
   X[i]:=B[i,i];
   Write(X[i]:8:3);
  end;
 Writeln;
 Writeln;

 Writeln('Ordered first line of matrix A:');
 For j:=1 to N do
  For k:=1 to N-j do
   If Abs(A[1,k])<Abs(A[1,k+1]) then
    begin
     Dummy:=A[1,k];
     A[1,k]:=A[1,k+1];
     A[1,k+1]:=Dummy;
    end;
 For j:=1 to N do Write(A[1,j]:8:3);
 Writeln;
 Writeln;

 Writeln('Product:');
 Y:=1;
 For i:=1 to N do
  If X[i]<>-1 then Y:=Y*(X[i]+1)*i;
 Write('Y= ',Y:0:5);

 Readln
END.