Data update

Task/Catalan-numbers/Pascal-P/catalan-numbers.pas

@@ -0,0 +1,25 @@
+program catalan(output);
+  (* Catalan numbers *)
+const
+  maxn = 14; (* with 32-bit integer; 10 for 16-bit integer *)
+var
+  n, c, i: integer;
+begin
+  n := 0;
+  c := 1;
+  writeln('C(', n: 2, ') = ', c: 8);
+  while n < maxn do
+  begin
+    n := n + 1;
+    i := 0;
+    while c > 0 do
+    begin
+      c := c - (n + 1);
+      i := i + 1;
+    end;
+    c := 2 * (2 * n - 1) * c div (n + 1);
+    c := c + 2 * i * (2 * n - 1);
+    writeln('C(', n: 2, ') = ', c: 8);
+  end;
+  (* readln; *)
+end.