haiku estimating 2

DIM T(20000) AS INTEGER
h = 9543
U = 1462


FOR N = U TO U + 15
  P = 0
  FOR k = 1 TO 100
    FOR i = 0 TO N: T(i) = 0: NEXT: UM = 0
    FOR i = 1 TO h
      m = INT(RND * N)
      IF T(m) = 0 THEN UM = UM + 1
      T(m) = 1
    NEXT
    IF UM = U THEN P = P + 1
  NEXT
  PRINT N; P / 100
NEXT