Initial data commit

Task/Multifactorial/ERRE/multifactorial.erre

@@ -0,0 +1,28 @@
+PROGRAM MULTIFACTORIAL
+
+PROCEDURE MULTI_FACT(NUM,DEG->MF)
+   RESULT=NUM
+   N=NUM
+   IF N=0 THEN
+      MF=1
+      EXIT PROCEDURE
+   END IF
+   LOOP
+      N-=DEG
+      EXIT IF N<=0
+      RESULT*=N
+   END LOOP
+   MF=RESULT
+END PROCEDURE
+
+BEGIN
+  PRINT(CHR$(12);)
+  FOR DEG=1 TO 10 DO
+      PRINT("Degree";DEG;":";)
+      FOR NUM=1 TO 10 DO
+          MULTI_FACT(NUM,DEG->MF)
+          PRINT(MF;)
+      END FOR
+      PRINT
+  END FOR
+END PROGRAM