Дано число а, равное пяти. новое число получается, если предыдущее число увеличить в три раза, затем к результату прибавить четыре и от полученного числа отнять предыдущее число. таким образом, получили последовательность тридцати целых чисел (включая первое число пять). найдите их сумму.

Var a:array [1..30] of int64;
i:integer;
sum:int64;
begin
a[1]:=5;
write ('Массив: ',a[1],' ');
for i:=2 to 30 do
begin
a[i]:=(a[i-1]*3+4)-a[i-1];
write (a[i],' ');
end;
sum:=0;
for i:=1 to 30 do
begin
sum:=sum+a[i];
end;
WRITELN;
write ('Сумма = ',sum);
end.

Текстовое решение:
Массив: 5 14 32 68 140 284 572 1148 2300 4604 9212 18428 36860 73724 147452 294908 589820 1179644 2359292 4718588 9437180 18874364 37748732 75497468 150994940 301989884 603979772 1207959548 2415919100 4831838204

Сумма = 9663676287