НА

uses Compl;

const n = 5;

var a: array[1..n,1..n] of complex;
    i, j, k: integer;
    S1,S2,S: complex;

begin
    Zero(S);
    k := 0;
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        a[i,j].Re  :=  random(4) + 1;
        a[i,j].Im  :=  random(4) + 1;
        write(a[i,j].Re, '.', a[i,j].Im);
        write('  ')
      end;
      writeln;
    end;
    writeln;
    for i := 1 to n do
    begin
        Add(a[i,n+1-i],S1,S1);
        inc(k);
    end;

    for i := 1 to n do
    begin
        Add(a[i,i],S2,S2);
        inc(k);
    end;

    Add(S1,S2,S);
    Prod(1/k,S,S);
    Output(S);
    writeln
end.