include Math
s,r=$<.map &:to_f
t=PI-asin(s/r)
p 2*t,s*(PI*s+4*r*t)