Initial data commit

Task/Multifactorial/FreeBASIC/multifactorial.basic

@@ -0,0 +1,22 @@
+' FB 1.05.0 Win64
+
+Function multiFactorial (n As UInteger, degree As Integer) As UInteger
+  If  n < 2 Then Return 1
+  Var result = n
+  For i As Integer = n - degree To 2 Step -degree
+    result *= i
+  Next
+  Return result
+End Function
+
+For degree As Integer = 1 To 5
+  Print "Degree"; degree; " => ";
+  For n As Integer = 1 To 10
+    Print multiFactorial(n, degree); " ";
+  Next n
+  Print
+Next degree
+
+Print
+Print "Press any key to quit"
+Sleep