[Otmorozok]

Код:

function pr(n,n1,n2:integer):integer;
begin
if n>2 then
result:=pr(n-1,n2,n1+n2)
else
result:=n1+n2;
end;

lmikle: Хде теги?!!

Пример использования для N>2:

r:=pr(5,1,1);//Для 5-ого члена последовательности. Дольше думай сам.