Question

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

Answer 1

var
a,n,i,k:integer;
begin
a:=5;
for i:=1 to 30 do
begin
n:=a;
a:=a*3+4-a;
k:=k+a;
end;
writeln(k);
end.