k = 6 (slider from 1 to n, step 1)
n = 20 (slider from 1 to 50, step 1)
L1 = Sequence(Random[0, 1000000000], i, 1, n)
L2 = Sort(L1)
L3 = Sort(Sequence[IndexOf[Element[L2, i], L1], i, 1, k])
Text1 = LaTeX(L3, true, true)
L = Sequence(n)
Text2 = LaTeX(L, true, true)
Liste2 = Sequence((3 * Mod[i, 15], 5 + 3 * floor(i / 15)), i, 0, n)
Liste1 = Sequence(Circle[Element[Liste2, i] + (0.15, 0.15), 1], i, 1, n)
Liste3 = Sequence(Circle[Element[Liste2, Element[L3, i]] + (0.15, 0.15), 1], i, 1, Length[L3])
Liste4 = Sequence(Text[i, Element[Liste2, i]], i, 1, n)