Algoritmo detarea
	Definir a,b,suma,matriz Como Entero
	
	Dimension matriz[3,3]
	para a = 1 Hasta 3 Con Paso 1 Hacer
		para b = 1 Hasta 3 Con Paso 1 Hacer
			matriz(a,b) = azar(9)+1
		FinPara
	FinPara
	para a = 1 Hasta 3 Con Paso 1 Hacer
		para b = 1 Hasta 3 Con Paso 1 Hacer
			Escribir matriz(a,b)," " Sin Saltar
		FinPara
		Escribir ""
	FinPara
	suma = 0
	para a = 1 Hasta 3 Con Paso 1 Hacer
		para b = 1 Hasta 3 Con Paso 1 Hacer
			si a == b Entonces
				suma = suma + matriz(a,b)
			FinSi
		FinPara
	FinPara
	Escribir "La suma de la diagonal es: ",suma
FinAlgoritmo