2016 Update

Task/Factorial/Simula/factorial.simula

@@ -0,0 +1,14 @@
+begin
+    integer procedure factorial( n );
+    integer n;
+    begin
+        integer fact, i;
+        fact := 1;
+        if n > 1 then
+            for i := 2 step 1 until n do
+                fact := fact * i;
+        factorial := fact
+    end;
+    outint( factorial( 6 ), 5);
+    outimage
+end