sqrt(x-5)+sqrt(5-x)=20 in R