int sxbsc(int i,int v[],int *p)
{
    int j,n;
    n=*p;
    if((i<1) || (i>n))
      return (0);
    else
    {  for(j=i;j<n;j++)
         v[j-1]=v[j];
       *p=--n;
       return (1);
    }
}