A = (6, 2)
B = (6.5, 2)
C = (6.5, 1)
D = (6, 1)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
E = (5.5, 2)
F = (5.5, 1)
Vieleck2, e, a_1, d_1, f = Polygon(E, A, D, F)
G = (5, 2)
H = (5, 1)
Vieleck3, g, e_1, f_1, h = Polygon(G, E, F, H)
I = (4.5, 2)
J = (4.5, 1)
Vieleck4, i, g_1, h_1, j = Polygon(I, G, H, J)
Zahl = 11 (slider from 0 to 15, step 1)
z3: floor(Zahl / 8)
z2: floor((Zahl - z3 * 8) / 4)
z1: floor((Zahl - 8 * z3 - 4 * z2) / 2)
z0: Zahl - 8 * z3 - 4 * z2 - 2 * z1
Liste1: {z0, z1, z2, z3}
Liste2 = Sequence(Text[Element[Liste1, 5 - i], (4.1 + i * 0.5, 2.2)], i, 1, 4)
Text1: "Zahl = 8 . " + z3 + " + 4 . " + z2 + " + 2 . " + z1 + " + 1 . " + z0 + ""