Дана прогрессия 3, 6, 12, 24, чему будет равна сумма 13-ти ее членов? (составить программу в паскале+по возможности с блок-схемой)

var a:array [1..13] of real;
      i: integer;
      q,s:real;
begin
  s:=3;
  a[1]:=3;
  a[2]:=6;
  a[3]:=12;
  a[4]:=24;
  q:=a[2]/a[1];
  for i:=2 to 13 do
    begin
      a[i]:=a[i-1]*q;
s:=s+a[i];
end;
writeln(s);
end.