Последовательность an строится так: a1=1, a2=3, an=an-1-2*an-2 для каждого n>2. Найти сумму первых 15 членов этой последовательности — Pascal(Паскаль)

uses crt;
const count=15;
var mas:array[1..count] of integer;
begin
clrscr;
mas[1]:=1;
mas[2]:=3;
sum:=mas[1]+mas[2];
for i:=3 to count do begin
mas[i]:=mas[i-1]-2*mas[i-2];
sum:=sum+mas[i];
end;
write('sum=',sum);
readkey;
end.

uses crt;
function Posl(n:integer):longint;
begin
if n=1 then Posl:=1
else if n=2 then Posl:=3
else Posl:=Posl(n-2)*Posl(n-1);
end;
var i:byte;
    s:longint;
begin
clrscr;
s:=0;
for i:=1 to 11 do
s:=s+Posl(i);
write('Summa=',s);
readln
end.