A = (-4.447374957127724, -2.381772195802788)
C = Point(Circle[A, 16.0])
e = Segment(A, C)
s = LineBisector(e)
S = Intersect(e, s)
k = Circle(S, 6.0)
B, D = Intersect(k, s)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
f = Segment(B, D)
g = Distance(a, b)
h = Distance(c, d)
mnogokotnik1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
Tekstmnogokotnik1: "Ploščina " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + mnogokotnik1