Pseint form X diagonal

Proceso sin_titulo
	Definir n como entero;


	Repetir
		Escribir "Ingrese un número, este número debe ser diferente de 0: ";
		Leer n;

	Hasta Que n <> 0;
	Definir matriz como caracter;
	Dimension  matriz[n,n];
	Definir columna Como Entero;
	Definir fila como entero;
	auxiliar1=1;
	auxiliar2=1;
	auxiliar3=n;
	Puntero= "X";
	Espacio= " ";
	Para columna<-1 hasta n con paso 1 hacer //bucle recorrido de la columna.
		Para fila <-1 hasta n con paso 1 hacer //bucle recorrido de la fila.
			Si fila = auxiliar1 && columna = auxiliar1 entonces //Condicionante fila es igual a su auxiliar y la columna igual a su auxiliar posición n,n.
				matriz[fila,columna]<-Puntero; //asignación del puntero a la posición n,n. diagonal.
				auxiliar1= auxiliar1+1; //cambio de la posición para nueva condicionante n,n.
			SiNo
				matriz[fila,columna]<-Espacio; //asignación del espacio a la posición diferente de n,n.
			FinSi
		FinPara
		fila = 1; //Restablecer fila.
	FinPara
	Para columna<-n hasta auxiliar2 con paso -1 hacer
		Para fila<-n hasta auxiliar2 con paso -1 hacer
			Si fila = auxiliar3 && columna = auxiliar3 Entonces
				matriz[fila,columna]<- Puntero; //asignación del puntero a la posición n,n (diagonal invertida).
				auxiliar3 = auxiliar3-1 //cambio de la posición para nueva condicionante n,n (diagonal invertida).
			FinSi
		FinPara
		fila = n;//restablecer fila.
	FinPara

	Escribir "···············································"
	Para columna<-1 hasta n con paso 1 hacer
		Para fila<-1 hasta n con paso 1 hacer
			Escribir Sin Saltar matriz[fila,columna]; //imprimir.
		FinPara
		fila=1;// restablecer fila.
	FinPara




FinProceso