uses crt;
const n=4;
        a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
                                    (  1,  2,-1,-8),
                                    ( -3,  4, 5, 0),
                                    (  5, -7, 0, 4));
var b:array[1..n,1..n] of real;
    i,j,k:byte;
    s:real;
begin
 clrscr;
 writeln('Исходная матрица');
 k:=0;
 s:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if j<n-i+1 then
      begin
       k:=k+1;
       s:=s+a[i,j];
      end;
     write(a[i,j]:7:2);
    end;
   writeln
  end;
 s:=s/k;
 writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
 writeln('Новая матрица');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=a[i,j]*s;
     write(b[i,j]:7:2)
    end;
   writeln
  end;
 readln
end.