Data commit

Task/Semiprime/PureBasic/semiprime.basic

@@ -0,0 +1,25 @@
+Procedure.s semiprime(n.i)
+    a.i = 2
+    c.i = 0
+    While c < 3 And n > 1
+	If (n % a) = 0
+	    n / a
+	    c + 1
+        Else
+	    a + 1
+        EndIf
+    Wend
+    If c = 2
+        ProcedureReturn "True" ;#True
+    EndIf
+    ProcedureReturn "False" ;#False
+EndProcedure
+	
+OpenConsole()
+For i.i = 0 To 64
+  PrintN(Str(i) + #TAB$ + semiprime(i))
+Next i
+
+PrintN(#CRLF$ + "--- terminado, pulsa RETURN---"): Input()
+CloseConsole()
+End