вычислить центр масс и площадь фигуры, задаваемой массивом вещественных точек (не менее 3x)
procedure CalcCentroidAndArea(const APolygon: TArrayDoublePoint; out X,Y:Double; Area: PDouble = nil);