Напишите функцию которая вычисляет n-е число фибоначчи

//По формуле Бине
//Pascal ABC.NET v3.0 сборка 1111

Var
 r,n:real;
begin
 readln(n);
 r:=(power((1+sqrt(5))/2,n)-power((1-sqrt(5))/2,n))/sqrt(5);
 writeln(r);
end. 

Пример ввода:
7
Пример вывода:
13