Вы должны другу 4000 рублей. Он предлагает выплатить ему долг следующим образом: в первую неделю- 1 руб, во вторую- 2 руб, в третью- 4 руб, в четвёртую 8 руб и т.д. в течении 12 недель. Выгодно ли вам такое предложение. Какую сумму вы выплатите таким способом.

Задача из Паскаля. Помогите плз.

Var   S,A:integer;   n:byte;BeginS:=0;A:=1;For n:= 1 to 12 do    Begin    S:=S+A;    A:=A*2    End;WriteLn('Сумма выплаты составит: ',S);End.Результат работы программы:Сумма выплаты составит: 4095