//Autor: Artur Czekalski (Sator)  www.epokaY.net/artur  artur@epokaY.net
//Liczenie wartości liczby Fibonacciego na wyrazach typu unsigned int algorytmem rekurencyjnym.
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, windows;
//---------------------------------------------------------------------------
function Fib(n: Cardinal): Cardinal;
begin
 If n < 2 Then begin RESULT := 1; exit; end;
 RESULT := Fib(n-2) + Fib(n-1);
end;
//---------------------------------------------------------------------------
var
 czas, n: Cardinal;
begin
 n := 45;
 czas := GetTickCount;
 writeln('Fib(', n, ')', Fib(n));
 czas := GetTickCount - czas;

 writeln('Delphi 7.0 PE: Czas=', czas);
 readln;
end.