Просуммировать элементы квадратной матрицы…

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.