Лизе так понравились числа Фибоначчи, что она решила построить свою последовательность чисел Либоначчи. Числа Либоначчи строятся, как и числа Фибоначчи: i-ое число Либоначчи равно сумме i−1-го и i−2-го элементов последовательности, но первый член последовательности 1, а второй: −1.
Помогите Лизе посчитать сумму чисел Либоначчи с индексами от 16 до 21 включительно. В качестве ответа укажите одно целое число, например, -1.

//PascalABC.NET 3.2 сборка 1318Var  libonachi:array of integer;  n,i,res:integer;procedure libonachiComputer(var vals:array of integer;var i:integer);begin  if i<=20 then    begin      vals[i]:=vals[i-1]+vals[i-2];      inc(i);      libonachiComputer(vals,i);    end;end;beginn:=21;i:=2;res:=0;setlength(libonachi,n);libonachi[0]:=1;libonachi[1]:=-1;libonachiComputer(libonachi,i);for i:=15 to 20 dores+=libonachi[i];writeln(res);end.Вывод:-6388