somme de la trace d'une matrice

variables matrice,t,i;
ecrire("saisir les elements de la matrice: "); lire(matrice);
t <- 0;
pour i de 1 jusqu'à 16 faire
	t <- t + matrice[i][i];
fin pour;
ecrire("la somme: ",t);