Algoritmia - Probleas con matriz

Buenas tengo un problemilla con este problema:

Tengo una matris bidimensional de 10*10 me piden sumar la diagonal de dicha matriz no se como hacerlo

Arreglo A de Entero[1..10, 1..10]
Entero sum <- 0
Para i <-1 hasta 10 hacer
sum <- sum + A[i,i]
Fpara
Escribir(sum)