данную последовательность можно записать в виде:
a(n)=a^(n-1)
вот программа расчета n-го члена последовательности
var
n : integer;
s : real;
begin
write('ввести n = ');
readln(n);
writeln(n,'-й член последовательности равен ', Power(2, n-1));
for var i := 1 to n do s += Power(2, i-1);
writeln('сумма = ', s);
end.