langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Factorial/Pascal/factorial-1.pascal
+++ b/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;