Data update

Task/Multifactorial/Cowgol/multifactorial.cowgol

@@ -0,0 +1,24 @@
+include "cowgol.coh";
+
+sub multifac(n: uint32, d: uint32): (r: uint32) is
+    r := 1;
+    loop
+        r := r * n;
+        if n <= d then break; end if;
+        n := n - d;
+    end loop;
+end sub;
+
+var d: uint32 := 1;
+while d <= 5 loop
+    print_i32(d);
+    print(": ");
+    var n: uint32 := 1;
+    while n <= 10 loop
+        print_i32(multifac(n, d));
+        print(" ");
+        n := n + 1;
+    end loop;
+    print_nl();
+    d := d + 1;
+end loop;