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

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 (ss<4000) then write(' Вам это выгодно!') else write(' Вам это не выгодно!');
readln(s); //Эта строка нужна для остановки программы, чтоб она не                                       // закрывалась. ее можно было и не писать
end.

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