Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K (K вводить с клавиатуры)- QBasic(Бейсик)

INPUT k
FOR i = 100 TO 300
    s = 0
    FOR j = 1 TO i
        IF i MOD j = 0 THEN s = s + j:
    NEXT
    IF s = k THEN PRINT i: f = 1
NEXT
IF f = 0 THEN PRINT "takoy summy net"