Помогите плз с Рекурсией

[Dendy]

Цель работы: Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.

Дано натуральное число n. Вычислить сумму n чисел Фибоначчи. Числа Фибоначчи определяются формулами f1 = f2 = 1; fn = fn-1 + fn-2 при n = 3, 4, …, то есть два первых члена равны единице, а каждый следующий член является суммой двух предыдущих.

заранее спасибо!

[_Dmitry]

Определение чисел Фибоначчи через рекурсию уже было.
http://www.programmersforum.ru/showthread.php?t=12276
Подкорректируйте функцию чтобы они еще и складывались.

[Dendy]

блин дмитрий я вообще не шарю в паскале, я не разберусь, был бы очень благодарен если бы сделали ....

[puporev]

program SummaFibonacci;
uses crt;
var k,i,sum:integer;
function SumFib(n:integer):longint;//рекурсивная функция
begin
if n=1 then SumFib:=1 else
if n=2 then SumFib:=2 else
SumFib:=SumFib(n-2)+SumFib(n-1)+1; //вызывает сама себя
end;
begin
clrscr;
write('k=');readln(k);
sum:=SumFib(k);
writeln('sum=',sum);
readln;
end.

[Dendy]

puporev большое спасибо