Просуммировать элементы квадратной матрицы , расположенные в верхней четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях. помогите пожалуйста. если не трудно сделайте пожалуйста так: var a:array [1..10,1..100]of integer;m,n,i,j:integer;beginwrite (вв m,n);read(m,n);for i:=1 to n dofor j:=1 to m doa[i,j]:= random (99);begin write ( a[i,j]:4);end;writeln;end.............. я не знаю что в условии писать. как вообще проссумировать эти элементы :(

var
  a:array [1..100,1..100]of integer;
  n,i,j, Summ:integer;
begin
write (n = );
readln(n);
for i:=1 to n do
  begin
  for j:=1 to n do
  begin
    a[i,j]:= random (99);
    write ( a[i,j]:4);
  end;
  writeln;
end;

Summ := 0;
  for i := 1 to (n div 2 + n mod 2) do
    for j := i to n - i + 1 do
      Summ := Summ + a[i,j];
      
  writeln(Summ = , Summ);
  readln;
end.