Initial data commit

Task/Anonymous-recursion/Delphi/anonymous-recursion.delphi

@@ -0,0 +1,33 @@
+program AnonymousRecursion;
+
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils;
+
+function Fib(X: Integer): integer;
+
+	function DoFib(N: Integer): Integer;
+	begin
+	if N < 2 then Result:=N
+	else Result:=DoFib(N-1) + DoFib(N-2);
+	end;
+
+begin
+if X < 0 then raise Exception.Create('Argument < 0')
+else Result:=DoFib(X);
+end;
+
+
+var I: integer;
+
+begin
+for I:=-1 to 15 do
+	begin
+	try
+	WriteLn(I:3,' - ',Fib(I):3);
+	except WriteLn(I,' - Error'); end;
+	end;
+WriteLn('Hit Any Key');
+ReadLn;
+end.