Semiprime: Difference between revisions

=={{header|Tiny BASIC}}==

<lang tinybasic> PRINT "Enter an integer"

INPUT N

IF N<0 THEN LET N = -N

IF N < 2 THEN GOTO 20

LET C = 0

LET F = 2

10 IF (N/F)*F = N THEN GOTO 30

LET F = F + 1

IF F > N THEN GOTO 20

GOTO 10

20 IF C = 2 THEN PRINT "It is a semiprime."

IF C<> 2 THEN PRINT "It is not a semiprime."

END

30 LET C = C + 1

LET N = N / F

GOTO 10</lang>