void stergpu( nod *&prim)
    { nod*p,*q;
      q=prim;
      prim=prim->leg;
      delete q;
      p=prim;
      while(p->leg->leg !=0)
	   p=p->leg;
      q=p->leg;
      p->leg=0;
      delete q;
   }