Каждое число в последовательности увеличивается на 2 в степени i - 1

где i это порядковый номер числа в последовательности

program raf105;

var

 x,n,i: integer;

begin

 readln(n);

 for i:=1 to n do

 begin

   x:= x + round(power(2,i-1));

   write(x,' ');

 end;

end.

PascalABC

var

k,i,a:Integer;

begin

a:=1;

readln(k);

for i:=1 to k do begin

write(a,' ');

a:=a+a+1;

end;

end.

Это паскаль