Создать модуль, с помощью которого можно вычислять сумму элементов матрицы, стоящих на главной диагонали. Pascal ABC. Ребят помогите =3

Товарищь, я это знаю. Мне лень писать алгоритм. У меня Deus EX не пройденый стоит.

i=j    эл-ты на гл диагоналиi<j    эл-ты над гл диагональюi>j      под гл диагональюi+j=n+1    на побочной диагоналиi+j<n+1    над побоч диагональюi+j>n+1     под побоч диагональю