Funcion  tope<-Desapilar ( pila,tope,dato )
	Si tope==0 Entonces
		Escribir "pila vacia"
	SiNo
		dato<-pila(tope)
		tope<-tope-1
	Fin Si
Fin Funcion

Funcion tope<- Apilar ( pila,N,tope,dato )
	Si tope==n Entonces
		Escribir "pila llena"
	SiNo
		tope<-tope+1
		pila(tope)<-dato
	Fin Si
Fin Funcion

Algoritmo pilas
	Escribir "ingrese el tamaño de la pila"
	Leer N
	Dimension pila(N)
	
	Escribir "bienvenido al menu" 
	opc<-0
	Mientras opc<> 4 Hacer
		Escribir "[1] Apilar"
		Escribir "[2] Desapilar"
		Escribir "[3] Mostrar"
		Escribir "[4] Salir"
		Leer opc
		Si opc==1 Entonces
			Escribir "ingrese el dato que desea apilar" 
			leer dato
			tope<- Apilar( pila,N,tope,dato )
		SiNo
			Si opc==2 Entonces
				//Escribir "ingrese el dato que desea desapilar"
				//leer dato
				tope<-Desapilar( pila,tope,dato )
			SiNo
				Si opc==3 Entonces
					Si tope<> 0 Entonces
						Para i<-1 Hasta tope Con Paso 1 Hacer
							Escribir pila(i)
						Fin Para
					SiNo
						Escribir "no hay datos que mostrar"
					Fin Si
				SiNo
					Escribir "opcion invalida"
				Fin Si
			Fin Si
		Fin Si
	Fin Mientras
FinAlgoritmo