5.-REGISTRE 200 NÚMEROS Y MUESTRA LOS INVERSAMENTE AL ORDEN EN QUE FUERON INGRESADOS Y EL ÚLTIMO ELIMINADO

INICIO
	DIMENSIONAR NUM[200]
	POS<-200
 	X<-1
	MIENTRAS X<=200 HACER
          LEER NUM[X]
          X<-X+1
        FIN_MIENTRAS
         Y<-Y-1
        FIN_MIENTRAS
         X<-POS
        MIENTRAS X<=(N-POS)+1
         A[X]<-A[X+1]
         X<-X+1
        FIN_MIENTRAS
         A[N]<-0 
         N<-N-1
         X<-1
         MIENTRAS X<=N HACER
           ESCRIBE A[X]
           X<-X+1
         FIN_MIENTRAS 
FIN