Const
 N=8;
Var
 A:Array[1..N,1..N] of Integer;
 X:Array[1..N] of Integer;
 i,j:Integer;
 Med_high,Med_low:Real;

Begin
 Med_high:=0;
 Med_low:=0;
 for j:=1 to N do X[j]:=0;
 for i:=1 to N do
  for j:=1 to N do
   begin
    Write('A[',i,',',j,']= ');
    Readln(A[i,j]);
    if j>i then Med_high:=Med_high+A[i,j];
    if j<i then Med_low:=Med_low+A[i,j];
    X[j]:=X[j]+A[i,j];
   end;
 Med_high:=Med_high/((N*N-N) div 2);
 Med_low:=Med_low/((N*N-N) div 2);
 Writeln('Matrix A:');
 for i:=1 to N do
  begin
   write('      ');
   for j:=1 to N do
    write(A[i,j]:8);
   writeln;
  end;
 writeln;
 writeln('Med_high= ',Med_high:0:3,'      Med_low= ',Med_low:0:3);
 if Med_high>Med_low then
  begin
   writeln;
   write('Sums: ');
   for j:=1 to N do write(X[j]:8);
  end;
 Readln
End.