Leer 400 números y crear una lista ordenada con ellos.
INICIO
PARA I=1 HASTA 400
LEER NUMERO
ENCONTRADO = "NO"
P=FIRST
MQ(ENCONTRADO = "NO" Y P<>NULL) HAGA
SI INFO(P)>NUMERO ENTONCES
ENCONTRADO = "SI"
SINO
Q=P
P=NEXT(P)
FIN SI
FIN MQ
NEWNODO(R)
INFO(R)=NUMERO
NEXT(R)=NULL
SI ENCONTRADO ="NO"
SI FIRST=NULL ENTONCES
FIRST=R
SINO
NEXT(Q)=R
FIN SI
SINO
SI P=FIRST ENTONCES
FIRST =R
NEXT(R)=P
SINO
NEXT(Q)=R
NEXT(R) = P
FIN SI
FIN PARA
