Помогите решить задачу, Числовые строки Опции

[banan]

Дано числа 1 1 1 2 3 4 6 9 13 ....
Найти N-ий член даного ряду (N<=50).
Пример входящих данных: 20
Приклад исходящих данных: 872

[volvo]

banan

const
  n = 20;
var
  arr: array[1 .. 4] of integer;
  i, j: integer;

begin
  for i := 1 to 3 do
    arr[i] := 1;

  for i := 4 to n do
    begin
      arr[4] := arr[1] + arr[3];
      for j := 1 to 3 do
        arr[j] := arr[j + 1];
    end;

  writeln( 'result = ', arr[4] );
end.