вспомогательные алгоритмы

[Irusik]

помогите решить задачу: составить задачу, используя вспомогательный алгоритм (вспомогательный алгоритм оформить в виде функции); выполнить задание с использованием рекурсивных процедур или функций

Садовник в певый день посадил 2 розы, вл второй день - 4 розы. в каждый следующий день количество посаженных рох должно быть равно сумме посаженных роз за два предыдущих дня минус 2 розы. сколько роз должен посадить садовник на 13 день?

[GetMax]

Var
  day:Byte;
Function Posadka(d:Byte):Integer;
Begin
  If d = 1 then Posadka:=2
  Else
  If d = 2 then Posadka:=4
  Else
  Posadka:=Posadka(d-1) + Posadka(d-2) - 2
End;
begin
  Writeln('Kol roz = ',Posadka(13));
  Readln
End.