NSolve[{D[2x^2+y^2+8x-6y+20,x] == 0, D[2x^2+y^2+8x-6y+20,y] == 0},{x,y}]