Определить ,является ли заданное натуральное число простым- QBasic(Бейсик)

CLS
INPUT "vvedite chislo"; s
FOR i = 1 TO s
    IF s MOD i = 0 THEN k = k + 1
NEXT
IF k = 2 THEN PRINT "prostoe" ELSE PRINT "net"