Рекурсивная функция

[Alerq]

Напишите пожалуйста рекурсивную функцию для нахождения суммы:
Y=3+3*3+3*3*3+...+3^N;
Заранее спасибо, просто в рекурсии я слаб((. Тут видимо нада совместить 2 рекурсии как то?

[GetMax]

Тут видимо нада совместить 2 рекурсии как то?

Не надо. Можно так сделать

Function Recurs(N:Byte):Word;
Begin
  If N=1 then Recurs:=3
  Else
    Recurs:=(Recurs(N-1)*3)+3;
End;

[Alerq]

Спасибо огромное!) Может еще объяснишь русскими словами технологию действия рекурсии еще раз пожалуйста, а то я не до конца понимаю.