Можно просто вычислить 2^n-1 или (если не использовать функцию возведения в степень) сделать так:
var n,i:integer; k:real;
begin
readln(n);
k:=1;
for i:=1 to n do k:=k*2;
writeln(k-1);
end.
Пример:
3
7
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.