Произведение N первых нечетных чисел равно k. Сколько сомножителей взято- QBasic(Бейсик)

INPUT "vvedite chislo K ", k
n = 1
m = 1
DO WHILE k <> 1
    m = m + 2
    n = n + 1
    k = k / m
    IF INT(k) <> k THEN PRINT "eto chislo nevozmojno": END
LOOP
PRINT "kol-vo chisel="; n