Algoritmo detarea
	Definir a,b,c,n,m,matriz Como Entero
	Escribir "Ingresa el  numero de filas"
	leer n
	Escribir "Ingresa el numero de columnas"
	leer m
	Dimension matriz[n,m]
	si (n > 1 y m > 1) y (n == m) Entonces
		para a = 1 Hasta n Con Paso 1 Hacer
			para b = 1 Hasta m Con Paso 1 Hacer
				Escribir "Ingresa un numero en la fila: ",a," columna: ",b
				leer matriz(a,b)
			FinPara
		FinPara
		Escribir ""
		para a = 1 Hasta n Con Paso 1 Hacer
			para b = 1 Hasta m Con Paso 1 Hacer
				Escribir matriz(a,b)," " Sin Saltar
			FinPara
			Escribir ""
		FinPara
		c = 0
		para a = 1 Hasta n Con Paso 1 Hacer
			para b = 1 Hasta m Con Paso 1 Hacer
				si a == b Entonces
					si matriz(a,b) == 0 Entonces
						c = c + 1
					FinSi
				SiNo
					si matriz(a,b) <>  0 Entonces
						c = c + 1
					FinSi
				FinSi
			FinPara
		FinPara
		si c == 0 Entonces
			Escribir "La matriz es de tipo diagonal"
		SiNo
			Escribir "La matriz no es de tipo diagonal"
		FinSi
	SiNo
		Escribir "La matriz no es cuadrada"
	FinSi
FinAlgoritmo