Data update

Task/Fibonacci-sequence/Pascal/fibonacci-sequence-3.pas

@@ -1,22 +1,8 @@
 function fib(n: integer): integer;
-var
-  f0, f1, tmpf0, k: integer;
-begin
-  f1 := n;
-  IF f1 >1 then
-  begin
-    k := f1-1;
-    f0 := 0;
-    f1 := 1;
-    repeat
-      tmpf0 := f0;
-      f0 := f1;
-      f1 := f1+tmpf0;
-      dec(k);
-    until k = 0;
-  end
-  else
-    IF f1 < 0 then
-      f1 := 0;
-  fib := f1;
-end;
+ begin
+  if (n = 0) or (n = 1)
+   then
+    fib := n
+   else
+    fib := fib(n-1) + fib(n-2)
+ end;