Вычислить среднее арифметическое отрицательных элементов выше главной и ниже побочной диагонали.

var i,j,n,x,kol,xx:int64;beginread(n);for i:=1 to n do begin   for j:=1 to n do begin      read(x);      if (i+j>n+1)and(i<j)and(x<0) then begin inc(kol); inc(xx,x); end;      end;      end;writeln(xx/kol);end.