program GeometricProgression;

var
a, n, s: integer;

begin
a := 2;
n := 9; // количество членов прогрессии
s := a * (power(2, n) - 1) div (2 - 1);

writeln('Сумма геометрической прогрессии равна: ', s);
end.