1.1.
var n,i,st:integer;
begin
write('n = ');
readln(n);
st:=1;
for i:=1 to n do st:=2*st;
writeln('2^',n,' = ',st);
end.

1.2.
begin
  var n:=ReadInteger('n =');
  writeln(power(2,n));
end.

Пример:
n = 7
128

2.
var n,i,st,s:integer;
begin
write('n = ');
readln(n);
st:=1; s:=0;
for i:=1 to n do 
 begin
 st:=2*st;
 s:=s+st;
 end;
writeln('s = ',s);
end.

Пример:
n = 7
s = 254

1)
var
  n, i, ss : longint;
begin
  readln (n);
  ss:=1;
  for i:=1 to n do
    begin
      ss:=ss*2;
    end;
  writeln (ss);
end.

2)
var
  n, i, ss, sum: longint;
begin 
  readln (n); 
 ss:=1; 
  for i:=1 to n do
  begin   
    ss:=ss*2; 
    sum:=sum+ss 
  end; 
  writeln (sum);
end.