R = (12.5, -2.82)
Q = (-0.84, -2.78)
k = Line(R, Q)
T = (1.84, 2.3)
i = Line(T, k)
A = Point(i)
B = Point(k)
C = Point(k)
Vieleck1, c, a, b = Polygon(A, B, C)
f = OrthogonalLine(A, a)
D = Intersect(k, f)
h = Segment(A, D)
α = Angle(C, D, A)
TextVieleck1: "Fläche von  " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + Vieleck1
PunktVieleck1 = PointIn(Vieleck1)