ElementType Find( List L, int m )
{
List p=L;
while(m--)
{
if(p==NULL)
{
return ERROR;
}
p=p->Next;
}
while(p)
{
L=L->Next;
p=p->Next;
}
return L->Data;
}