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

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

Результат работы программы:

Сумма выплаты составит: 4095