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

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

var a:array [1..10,1..100]of integer;
m,n,i,j:integer;
begin
write ('вв m,n');
read(m,n);
for i:=1 to n do
for j:=1 to m do
a[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;beginwrite ('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.