a_2 = Segment((-3.0, -1.0), (7.0, -1.0))
A = (-3, -1)
B = (7, -1)
s = LineBisector(a_2)
C_1 = Point(Circle[B, 40.0])
D_1 = Point(Circle[B, Angle[40.0]])
S = Point(s)
F = Intersect(a_2, s)
α = Angle(F, A, S)
c_1 = Line(A, S)
d_1 = Line(B, S)
β = Angle(S, B, F)
γ = Angle(c_1, d_1)
e = OrthogonalLine(B, a_2)
f = OrthogonalLine(A, a_2)
D = Intersect(d_1, f)
C = Intersect(c_1, e)
g = Segment(D, C)
mnogokotnik1, a, b, c, d = Polygon(A, B, C, D)
i = Perimeter(mnogokotnik1)