l

S = (0, 0)
c = Circle(S, 12.0)
A_1, B_1 = Intersect(c, xAxis)
C_1, D_1 = Intersect(c, yAxis)
a = OrthogonalLine(A_1, xAxis)
b = OrthogonalLine(C_1, yAxis)
d = OrthogonalLine(B_1, xAxis)
e = OrthogonalLine(D_1, yAxis)
A = Intersect(a, b)
B = Intersect(b, d)
C = Intersect(d, e)
D = Intersect(e, a)
mnogokotnik1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
obsegmnogokotnik1 = Perimeter(mnogokotnik1)
Tekstmnogokotnik1: "Obseg " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + obsegmnogokotnik1
f = Perimeter(mnogokotnik1)
tekst1: "Ploščina " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + mnogokotnik1