Дано натуральное число n. Вывести все простые делители данного числа -QBasic(Бейсик)

INPUT a
FOR i = 2 TO a
    IF a MOD i = 0 THEN
        k = 0
        FOR j = 1 TO i
            k = k - (i MOD j = 0)
        NEXT
        IF k = 2 THEN PRINT i
    END IF
NEXT