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