Длинна окружности=Pi*диаметр => диаметр=длина/Pi=>площадь=Pi*r^2
На делфе примерно (FloatToStr(Pi*(diam/2)*(diam/2)))) так...