1000 到 9999 取 200個亂數，

然後，測試 是否為 質數，

如果是 質數的話，寫入 檔案

PRIME-N.DAT

N= 該質數的 千位數，

你看 如何？

為了 完成這個程式，需要 ㄧ些 副程式翰 函數。


call skip(3)
可以 空三行的 輸出


call pause
暫停


call time1(t1)
t1 能夠逮表目前的 時間刻度，單位是 ms


call time2(t1, dt)
計算 從 t1 到現在，所經過的 秒數，
單位是 秒


call rnd1(s1)
把 s1 丟進去，產生 新的 s1
s1 是亂數，

1 <= s1 <= 2147483646


call rnd2(s1, x1)

s1 的說明，同上面。

0.0 < x1 < 1.0



call irnd(s1, i1, i2, ii)

s1 的說明，同上面。

i1, i2 是 input, ii 是 output,

i1 <= ii <= i2



call init_rnd(s1)
呼叫 time1(), 產生 亂數的 種子數 s1


is_prime(no)
測試 no 是否為 質數