написать программу на языке Паскаль для вычисления суммы s=2+4+8+16+32+64+128+256+512 использовать формулу подсчета суммы геометрической прогрессии

begin

 var (b, q, n) := (2, 2, 9);

 var S := b * (1 - q ** n) / (1 - q);

 Write($'Сумма первых {n} членов: S = {S}')

end.