GeometricScene[{{A.,B.,C.,D.,E.,F.,G.,H.,K.},{}},{GeometricAssertion[{Triangle[{A.,B.,C.}]},"Counterclockwise"],PlanarAngle[{A.,C.,B.}]90°,GeometricAssertion[{Style[Polygon[{A.,K.,H.,C.}],Blue],Style[Polygon[{C.,D.,E.,B.}],Yellow],Style[Polygon[{B.,F.,G.,A.}],Green]},"Convex","Clockwise","Similar"]},{Area[Polygon[{A.,B.,F.,G.}]]Area[Polygon[{A.,C.,H.,K.}]]+Area[Polygon[{C.,B.,E.,D.}]]}]