real*8::C,Ri,Ro
  read *,C,Ri,Ro
  print '("0",f0.15)',((Ro-Ri)/2)**2*(Ro+Ri)/2*3.14159265359**2 *2*C
end