RosettaCodeData/Task/Fibonacci-sequence/Pascal/fibonacci-sequence-5.pas

function FiboMax(n: integer):Extended;  //maXbox
begin
   result:= (pow((1+SQRT5)/2,n)-pow((1-SQRT5)/2,n))/SQRT5
end;