Data commit

Task/Semiprime/FreeBASIC/semiprime.basic

@@ -0,0 +1,17 @@
+function semiprime( n as uinteger ) as boolean
+	dim as uinteger a = 2, c = 0
+	while c < 3 andalso n > 1
+		if n mod a = 0 then
+			n /= a
+			c += 1
+		else
+			a += 1
+		end if
+	wend
+	if c = 2 then return true
+	return false
+end function
+
+for i as uinteger = 0 to 64
+    print i, semiprime(i)
+next i