Дано натуральное число N. Получить все такие натуральные Q, что N делится на Q^2 и не делится на Q^3 — QBasic(Бейсик)

CLS
INPUT n
FOR i = 1 TO n
IF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1: PRINT  i
NEXT
 
IF f <> 1 THEN PRINT " takih chisel net"