Задача в Паскале. Вы должны другу 4 тыщи рублей. Он предлагает

По какой это логике идет нарастание? Растолкуйте фичу, я программу напишу. 1-ая неделя - 1. 2-ая неделя - 2. Третья неделя - 8!??? Вообще, я не сообразил, что писать в программке. Она должна посчитать, сколько ты заплатишь по прошествии 12 недель? Если да, то объясните систему нарастания суммы выплаты

Либо сумма выплаты для каждого денька вводится с клавиатуры?

Простите, допустил опечатку.В 1 неделю 1, во 2 неделю 2 рубля, в 3 неделю 4 рубля, в 4 неделю 8 рублей

Var i,s,ss : longint;
Begin
ss:=1;
s:=1;
Writeln('На 1 неделе вы заплатите: 1 руб.');
for i:= 1 to 11 do
begin;
s:=s*2;
Writeln('На ',i+1,' неделе вы оплатите: ',s,' руб.');
ss:=ss+s;
end;
Writeln('Общая сумма: ',ss,' руб.');
if (sslt;4000) then write(' Для вас это выгодно!') else write(' Вам это не прибыльно!');
readln(s); //Эта строчка нужна для остановки программы, чтобы она не                                       // закрывалась. ее можно было и не писать
end.

//На снимке экрана показано, что выйдет при запуске.