Neu

n = 28
Liste1 = Sequence(Random[1, 5], i, 1, n)
Balkendiagramm = BarChart(Liste1, 1)
m = BoxPlot(10, 0.5, Liste1)
Text1: "Minimum: " + (Min[Liste1]) + ""
Text2: "Q1 = " + (Q1[Liste1]) + ""
Text3: "Median = " + (Median[Liste1]) + ""
Q3 = 0
Text4: "Q3 = " + (Q3[Liste1]) + ""
Text5: "Maximum: " + (Max[Liste1]) + ""
Text6: "Mittelwert: " + (Mean[Liste1]) + ""
Text7: "Modalwert = " + (Mode[Liste1]) + ""