'Per Fa_Rnd - vedi Prob.Stat. scheda 6 õ5
w = .1: U = 0: t = 0
WHILE t < 60
   t = t + RND * 2: IF RND < w THEN U = U + 1
WEND