void Delete(int n)
{
    struct node **pp = &head;
    for (int i=1; i<n && *pp; ++i)
        pp = &(*pp)->next;

    if (*pp)
    {
        struct node *p = *pp;
        *pp = p->next;
        free(p);
    }
}