Initial data commit

Task/Pythagorean-quadruples/PureBasic/pythagorean-quadruples.basic

@@ -0,0 +1,33 @@
+OpenConsole()
+limite.i = 2200
+s.i = 3
+Dim l.i(limite)
+Dim ladd.i(limite * limite * 2)
+
+For x.i = 1 To limite
+  x2.i = x * x
+  For y = x To limite
+    ladd(x2 + y * y) = 1
+  Next y
+Next x
+
+For x.i = 1 To limite
+  s1.i = s
+  s.i + 2
+  s2.i = s
+  For y = x +1 To limite
+    If ladd(s1) = 1
+      l(y) = 1
+    EndIf
+    s1 + s2
+    s2 + 2
+  Next y
+Next x
+
+For x.i = 1 To limite
+  If l(x) = 0
+    Print(Str(x) + " ")
+  EndIf
+Next x
+Input()
+CloseConsole()