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/Fibonacci-sequence/Pascal/fibonacci-sequence-1.pascal
+++ b/Task/Fibonacci-sequence/Pascal/fibonacci-sequence-1.pascal
@ -0,0 +1,8 @@
+function fib(n: integer): integer;
+ begin
+  if (n = 0) or (n = 1)
+   then
+    fib := n
+   else
+    fib := fib(n-1) + fib(n-2)
+ end;