A: (5, 4)
k = 1.6 (slider from -5 to 5)
f: y - 4 = (k * (x - 5))
B = Intersect(f, yAxis)
C = Intersect(xAxis, f)
D: (0, 0)
k1, b, d, c = Polygon(D, C, B)
Tekstik1: " " + (Name[D]) + (Name[C]) + (Name[B]) + ":n pinta-ala = " + k1
Pistek1 = PointIn(k1)