Algoritmo detarea
	Definir a,b,c,f,suma1,suma2, matriz Como Entero
	Escribir "Ingresa el tamaño de la matriz"
	leer a,b
	Dimension matriz[a,b]
	para f = 1 Hasta a Con Paso 1 Hacer
		para c = 1 Hasta b Con Paso 1 Hacer
			Escribir "Ingresa un numero en fila: ",f," columna: ",c
			leer matriz(f,c) 
		FinPara
	FinPara
	
	para f = 1 Hasta a Con Paso 1 Hacer
		para c = 1 Hasta b Con Paso 1 Hacer
			Escribir matriz(f,c)," " Sin Saltar
		FinPara
		Escribir ""
	FinPara	
	
	suma1 = 0
	para f = 1 Hasta a Con Paso 1 Hacer
		para c = 1 Hasta b Con Paso 1 Hacer
			si f == c entonces
				suma1 = suma1 + matriz(f,c)
			FinSi
		FinPara
	FinPara
	
	c = b
	suma2 = 0
	
	para f = 1 Hasta a Con Paso 1 Hacer
		suma2 = suma2 + matriz(f,c)
		c = c - 1
	FinPara
	si suma1 = suma2 Entonces
		Escribir "Las diagonales son iguales"
	SiNo
		Escribir "Las diagonales son diferentes"
	FinSi
FinAlgoritmo