Program Blabla;

Const
 Nmax=9;

Var
 N:Integer;
 A,B:Array[1..Nmax,1..Nmax] of Real;
 X:Array[1..Nmax] of Real;
 Y:Real;

Procedure Matrix_A;
var i,j:Integer;
begin
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=(2.2+Sqrt(8.4*i+1)*j)/(Exp(Ln(i*j)*Ln(10))+5);
     Write(A[i,j]:8:3);
    end;
   Writeln;
  end;
end;

Procedure Matrix_B;
var
 S:Real;
 i,j:Integer;
begin
 for i:=1 to N do
  begin
   S:=0;
   for j:=1 to N do S:=S+A[i,j];
   for j:=1 to N do
    begin
     B[i,j]:=S;
     Write(B[i,j]:8:3);
    end;
   Writeln;
  end;
end;

Procedure Vector_X;
var i,j:Integer;
begin
 for i:=1 to N do
  begin
   X[i]:=0;
   for j:=N downto 1 do X[i]:=X[i]+Ln(B[i,j]);
   Write(X[i]:8:3);
  end;
 Writeln;
end;

Procedure Ordering;
var
 i,j,k:Integer;
 D:Real;
begin
 for i:=1 to N do
  begin
   for j:=1 to N-1 do
    for k:=1 to N-j do
     if A[i,k]<A[i,k+1] then
      begin
       D:=A[i,k];
       A[i,k]:=A[i,k+1];
       A[i,k+1]:=D;
      end;
  end;
 for i:=1 to N do
  begin
   for j:=1 to N do Write(A[i,j]:8:3);
   Writeln;
  end;
end;

Procedure Find_Y;
var i:Integer;
begin
 Y:=0;
 for i:=N-1 downto 2 do Y:=Y+(X[i-1]/X[i]+X[i]/X[i+1]);
 Writeln('Y = ',Y:0:3);
end;

Begin
 Repeat
  Write('N = ');
  Readln(N);
  If N>Nmax then Writeln('N must be < ',Nmax+1,'!');
 Until N<Nmax+1;
 Writeln('Matrix A:');
 Writeln;
 Matrix_A;
 Writeln;
 Writeln('Press "Enter" to continue...');
 Readln;
 Writeln('Matrix B:');
 Writeln;
 Matrix_B;
 Writeln;
 Writeln('Press "Enter" to continue...');
 Readln;
 Writeln('Vector X:');
 Writeln;
 Vector_X;
 Writeln;
 Writeln('Press "Enter" to continue...');
 Readln;
 Writeln('Ordered matrix A:');
 Writeln;
 Ordering;
 Writeln;
 Writeln('Press "Enter" to continue...');
 Readln;
 Writeln('Y value:');
 Writeln;
 Find_Y;
 Readln
End.