Дана геометрическая прогрессия 3, 6, 12, 24, ... Чему будет равна

program zz1;

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

begin

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

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

begin

write(n, );

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

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

end;

writeln;  // перебегаем на новейшую строчку для вывода ответа

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

end.