void union(List &La,List Lb){
La_len = ListLength(La);
Lb_len = ListLength(Lb);
for(i = 1; i < Lb_len; i++)
{
GetElem(Lb, i, e);
if(!LocateElem(La, e, equal)) ListInsert(La, ++ La_len, e);
}
}
void MergeInsert(List La, List Lb, List &Lc)
{
InitList(Lc);
i = j = 1; k = 0;
La_len = ListLength(La);
Lb_len = ListLength(Lb);
while(i < La_len && j < Lb_len)
GetElem(La, i, ai);
GetElem(La, j, bi);
if(ai <= bi) {ListInsert(Lc, ++k, ai); i++; }
else{ListInsert(Lc, ++k, bi); j++;}
while(i <= La_len) {GetElem(La, i++, ai); ListInsert(Lc, ++k, ai);}
while(i <= Lb_len) {GetElem(Lb, i++, bi); ListInsert(Lc, ++k, bi);}
}