b = -3.5 (slider from -5 to 5)
f: y = (-2 * x) + b
A = Intersect(f, yAxis)
B = Intersect(yAxis, xAxis)
C = Intersect(f, xAxis)
k1, c, a, b_1 = Polygon(A, B, C)
Tekstik1: " " + (Name[A]) + (Name[B]) + (Name[C]) + ":n pinta-ala = " + k1
Pistek1 = PointIn(k1)