Просуммировать элементы квадратной матрицы , расположенные в правой четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях.   помогите пожалуйста. если не трудно  

сделайте пожалуйста так:  

 

 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.

 но это сумма верхней четверти а вот как сделать правую часть я вообще не знаю( 

vara: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 (90) + 10;      write ( a[i,j]:4);    end;    writeln;  end;  Summ := 0;  for j := n downto (n div 2 - n mod 2) do    for i := n - j + 1 to j do      Summ := Summ + a[i,j];writeln('Summ = ', Summ);readln;end.