Collect[Resultant[x^5+ax^4+bx^3+cx^2+dx+e, y-(x^2+px+q), x],y]