Автор - idkbtw
Program n_1;
uses Math;
var i, x: integer; n:real;
begin
x:=10;
n:=1;
for i:=1 to x do n:=n + Power(2, i);
writeln(n:0:0);
end.
Это вариант, если вы уже проходили функции (в частности - возведение в степень).