habis di bagi tidak boleh kembar

dim unused(9)
FOR i=1 TO 9
unused(i)=TRUE
NEXT
sukses = false
bil = 0
CALL Try(1, sukses)
IF sukses=TRUE THEN
document.write "Bilangan yang Dicari adalah " & bil & "
"
ELSE
document.write "Tidak Ada Bilangan dengan Sifat Tersebut!!!
"
END IF

SUB Try(byVal i, byRef sukses)
p = 0
DO
p = p + 1
suksesBerikut = FALSE
IF unused(p) = TRUE AND ((bil*10+p) MOD i = 0) THEN
bil = bil * 10 + p
unused(p) = FALSE
IF i<9 THEN
CALL Try(i+1, suksesBerikut)
IF suksesBerikut = FALSE THEN
bil = bil \ 10
unused(p) = TRUE
END IF
ELSE
suksesBerikut = TRUE
END IF
END IF
LOOP UNTIL suksesBerikut = TRUE OR p = 9
sukses = suksesBerikut
END SUB