числа фибоначи

[newgener]

числа фибоначи (F[n]) определяютя формулами:
f[0]=f[1]=1, f[n]=f[n-1]+f[n-2] (при n=2,3...)
Найти число фибоначи f[p] с заданным порядковым номером Р (вводится с клавиатуры)

[DoDge_VipeR]

program Fib; 
 var p:byte;

function F(k:byte):word; 
begin 
 if k<=2 then F:=1 else F:=F(k-1)+F(k-2); 
end; 

begin 
 write('введите номер числа Фиббоначчи '); 
 readln(p); 
 writeln(p,'-е число Фиббоначчи =',F(p)); 
 readln 
end

.

[newgener]

Спасибо большое!