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

INPUT n
k = 0
FOR i = 3 TO n STEP 3
    IF n MOD i = 0 THEN PRINT i: k = k + 1
NEXT i
PRINT "Kolvo deliteley kratnih 3="; k

Тестирование выполнено в программе QB64 ( Скачать )