A = (0, 0)
B = (10, 0)
a = Segment(A, B)
A' = (2, 0)
B' = (8, 0)
b = OrthogonalLine(A', a)
c = OrthogonalLine(B', a)
D' = (0, 3.4)
d = Line(D', a)
C = Intersect(d, c)
D = Intersect(d, b)
e = Segment(A, D)
f = Segment(C, B)
g = Segment(D, C)
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
h = Segment(B, D)