begin
var (b, q, n) := (2, 2, 9);
var S := b * (1 - q ** n) / (1 - q);
Write($'Сумма первых {n} членов: S = {S}')
end.
