We can substitute #600# for #S# and solve for #l#:
#600 = pir^2 + pirl#
#600/(color(red)(pi)color(blue)(r)) = (pir^2 + pirl)/(color(red)(pi)color(blue)(r))#
#600/(pir) = (pir^2)/(color(red)(pi)color(blue)(r)) + (pirl)/(color(red)(pi)color(blue)(r))#
#600/(pir) = (color(red)(cancel(color(black)(pi)))r^color(blue)(cancel(color(black)(2))))/(cancel(color(red)(pi))cancel(color(blue)(r))) + (color(red)(cancel(color(black)(pi)))color(blue)(cancel(color(black)(r)))l)/(cancel(color(red)(pi))cancel(color(blue)(r)))#
#600/(pir) = r + l#
#600/(pir) - color(red)(r) = r + color(red)(r) - l#
#600/(pir) - r = 0 + l#
#600/(pir) - r = l#
#l = 600/(pir) - r#
Or
#l = 600/(pir) - ((pir)/(pir) xx r)#
#l = 600/(pir) - (pir^2)/(pir)#
#l = (600 - pir^2)/(pir)#