Initial data commit

Task/Factorial/ERRE/factorial-1.erre

@@ -0,0 +1,8 @@
+    PROCEDURE FACTORIAL(X%->F)
+      F=1
+      IF X%<>0 THEN
+        FOR I%=X% TO 2 STEP Ä1 DO
+          F=F*X%
+        END FOR
+      END IF
+    END PROCEDURE

Task/Factorial/ERRE/factorial-2.erre

@@ -0,0 +1,4 @@
+    PROCEDURE FACTORIAL(FACT,X%->FACT)
+       IF X%>1 THEN FACTORIAL(X%*FACT,X%-1->FACT)
+       END IF
+    END PROCEDURE