langs a-z

Task/Factorial/Pascal/factorial-1.pascal

@@ -0,0 +1,9 @@
+function factorial(n: integer): integer;
+ var
+  i, result: integer;
+ begin
+  result := 1;
+  for i := 2 to n do
+   result := result * i;
+  factorial := result
+ end;

Task/Factorial/Pascal/factorial-2.pascal

@@ -0,0 +1,8 @@
+function factorial(n: integer): integer;
+ begin
+  if n = 0
+   then
+    factorial := 1
+   else
+    factorial := n*factorial(n-1)
+ end;