помогите плиз с прогой ))

[neBu4kaMaXiM]

Надо вычислить сумму главнойи побочной диагонали двумерного массива,среднее арифметическое этих диагоналей

[WOLFak]

главная
for i:=1 to n do
 s:=s+a[i,i];
побочная
for i:=1 to n do
 s:=s+a[i,n-i+1];