program GeometricProgression;
vara, n, s: integer;
begina := 2;n := 9; // количество членов прогрессииs := a * (power(2, n) - 1) div (2 - 1);
writeln('Сумма геометрической прогрессии равна: ', s);end.
program GeometricProgression;
var
a, n, s: integer;
begin
a := 2;
n := 9; // количество членов прогрессии
s := a * (power(2, n) - 1) div (2 - 1);
writeln('Сумма геометрической прогрессии равна: ', s);
end.