1) вводится число n, высислить 2^n2)вводится число n, вычислить 2^1+2^2+2^n

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