Сумма 1го и 2го числа равна 100. Как найти 15е число последовательности, если каждое следующее равно сумме всех предыдущих — Pascal(Паскаль)

var 
  a:array[1..15] of real;
  i:integer;
  s:real;
begin
  s:=100;
  a[1]:=50;
  a[2]:=50;
for i:= 2 to 15 do
begin
  a[i+1]:=a[i]*2;
  s:=s+a[i];
end;
writeln((s+a[1]+a[2]):6:2);
readln
end.