Sirge1: (3 * x) - (5 * y) + 1 = 0
Sirge2: (7 * x) - y + 2 = 0
α = Angle(Sirge1, Sirge2)
A = (-1, 3)
kaugusAeq2 = Distance(A, Sirge2)
Midpoint(A, ClosestPoint[Sirge2, A])
TekstAeq2: Name[A] + (Name[Sirge2]) + " = " + kaugusAeq2
kaugusAeq1 = Distance(A, Sirge1)
Midpoint(A, ClosestPoint[Sirge1, A])
TekstAeq1: Name[A] + (Name[Sirge1]) + " = " + kaugusAeq1