Solve[[-x*(x1-x)+(r-y)*(y1-y)=0 & (x1-x)^2+(y1-y)^2-z^2=0],[x,y]]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.