if (matrix[0][0]<0)
then
summ:=matrix[0][0]+matrix[0][1]+matrix[0][2];
end;

if (matrix[1][1]<0)
then
summ:=matrix[1][0]+matrix[1][1]+matrix[1][2];
end;

if (matrix[2][2]<0)
then
summ:=matrix[2][0]+matrix[2][1]+matrix[2][2];
end;