NSolve[{l==2*x*ArcCos[h/(2*x)], y==2*Sqrt[x*x-h*h/4], h==40,l==100},{x,y}]