Algoritmo detarea
	Definir f,c,x,matriz1,matriz2 Como Entero
	Dimension matriz1[12,12],matriz2[12,12]
	para f = 1 Hasta 12 Con Paso 1 Hacer
		para c = 1 Hasta 12 Con Paso 1 Hacer
			matriz1(f,c) = azar(9) + 1
			matriz2(f,c) = azar(9) + 1
		FinPara
	FinPara
	x = 0
	para f = 1 Hasta 12 Con Paso 1 Hacer
		para c = 1 Hasta 12 Con Paso 1 Hacer
			Escribir matriz1(f,c)," " Sin Saltar
			si f == c Entonces
				si matriz1(f,c) == matriz2(f,c) Entonces
					x = x + 1
				FinSi
			FinSi
		FinPara
		Escribir " "
	FinPara
	Escribir ""
	para f = 1 Hasta 12 Con Paso 1 Hacer
		para c = 1 Hasta 12 Con Paso 1 Hacer
			Escribir matriz2(f,c)," " Sin Saltar
		FinPara
		Escribir " "
	FinPara
	si x == 12 Entonces
		Escribir "Las diagonales son iguales"
	SiNo
		Escribir "Las diagonales son diferentes"
	FinSi
FinAlgoritmo