S: (0, 0)
I = (1400, 0)
K: (1400, 420)
t1, i, s, k = Polygon(S, K, I)
f = OrthogonalLine(K, xAxis)
C = Point(i)
g = Line(C, f)
H = Intersect(g, k)
h = Segment(C, H)
distanceIK = Distance(I, K)
TexteIK: Name[I] + (Name[K]) + " = " + distanceIK
distanceSK = Distance(S, K)
TexteSK: Name[S] + (Name[K]) + " = " + distanceSK
distanceCH = Distance(C, H)
périmètret1 = Perimeter(t1)
Pointt1_1 = PointIn(t1)
a = Perimeter(t1)
Pointt1 = PointIn(t1)