Напишите программу которая вводит с клавиатуры натуральное число n и выводит на экран n первых элементов последовательности: 1, 3, 7, 15, 31, 63, (4 )

Каждое число в последовательности увеличивается на 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.

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.

Это паскаль