XProfan

Window Title "Lineare Häufigkeitsverteilung in k% classes in the area low% To high%"
font 2:randomize:cls rnd(8^8)
' fountain: One of wind from direction west herbeigetragener slips of paper
var k%=20 : var low%=10 : var high%=99
declare h%[k%-1]

WhileLoop 0,k%-1

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

Endwhile

Waitinput