XProfan

Título de la ventana "Lineare Häufigkeitsverteilung en k% Klassen en low% a high%"
font 2:randomize:cls rnd(8^8)
' Quelle: Ein vom Wind de Richtung Westen herbeigetragener Zettel
var k%=20 : var low%=10 : var high%=99
declarar h%[k%-1]

WhileLoop 0,k%-1

    h%[&Loop]=rnd(high%-low%+1) + low%
    imprimir &Loop,h%[&Loop]

Endwhile

Waitinput