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