数値計算プログラム

サイコロの確率を求める方法はプログラムでは以下になります。(n=1000)

dim a(6)
j:=1
repeat
a(j):=0
j:=j+1
until j>=6
i:=1
repeat
b:=int(rnd(0)*6+1)
a(i):=a(i)+1
i:=i+1
until i>=1000