Initial data commit

Task/Multifactorial/MAD/multifactorial.mad

@@ -0,0 +1,16 @@
+            NORMAL MODE IS INTEGER
+
+            INTERNAL FUNCTION(N,DEG)
+            ENTRY TO MLTFAC.
+            RSLT = 1
+            THROUGH MULT, FOR MPC=N, -DEG, MPC.L.1
+MULT        RSLT = RSLT * MPC
+            FUNCTION RETURN RSLT
+            END OF FUNCTION
+
+            THROUGH SHOW, FOR I=1, 1, I.G.10
+SHOW        PRINT FORMAT OUTP, MLTFAC.(I,1), MLTFAC.(I,2),
+          0      MLTFAC.(I,3), MLTFAC.(I,4), MLTFAC.(I,5)
+
+            VECTOR VALUES OUTP = $5(I10,S1)*$
+            END OF PROGRAM