nulo eliminar_nodo(apuntador cab,entero:valbus)
 apuntador p=cab,ant
 si(cab = nulo) entonces
    imprima:"lista vacia"
 si no
    mientras((p.dato <> valbus)and(p <> nulo) haga
             ant=p
             p=p.liga
    fin mientras
    si(p.dato=valbus)entonces
            si(p=cab)entonces
               cab=cab.liga
            si no
               ant.liga=p.liga
            fin si
            delete(p)
    si no
       imprima:"el valor no existe en la lista"
    fin si
 fin si
fin procedimiento