Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic

CLS
S = 1
FOR i = 1 TO 11
IF i / 3 = INT(i / 3) THEN
S = S * i
END IF
NEXT i
PRINT S