GroebnerBasis[{r^2+3,w^2+w+1,(2*w+1+r)*x-(2*r*w+r-3),(2*w+1+r)*y-1},{y,x,w,r}]