Дана геометрическая прогрессия 3, 6, 12, 24, ... Чему будет равна сумма 13-ти ее членов? (составить программу в паскале+по возможности с блок-схемой)

program zz1;

var n, i, s:integer; / / задаем переменную целого типа

begin

n: = 3; / / задаем первый член геометрической прогрессии

for i:=1 to 13 do / / организуем цикл на тринадцать повторений

begin

write (n,' ');

s:=s + n; / / получаем сумму, добавляя к ней очередной член геометрической прогрессии

n:=n * 2; / / получаем следующий член геометрической прогрессии

end;

writeln; / / переходим на новую строку для вывода ответа

write (' сумма тринадцати членов геометрической прогрессии = ', s); / / выводим ответ

end.