[is_absent]

Jeff
begin
{формируем массив}
sum:= 0;
for i:= 1 to N do
tr:=tr + a[i,i];
end;

вроде так.. N - размерность матрицы, tr -- след матрицы (сумма диагональных элементов) a --матрица