Помогите решить задачку по информатике!

Оба ответа выше не верны.
В условиях задачи сказано: "Составить алгоритм и программу, определяющую, сколько денег он проиграл за две недели". Т. е. нужно посчитать общее количество проигранных денег, а Ваши программы считают только ставку в каждый конкретный день.

В итоге, программа должна выглядеть примерно так (взял в качестве примера программу предыдущего автора) :

var i,x,res,sum: integer;
begin
writeln("введите количество дней");
readln(x); //читаем количество дней которое ввели
res:=1; sum:=1;
for i:=1 to x-1 do //цикл от одного до введенного количества дней
begin
res:= res*2; //удваиваем ставку
sum:=sum+res; //считаем общее количество денег
end;
writeln(IntTostr(sum)); //вывод результата

Удачи!

var i,x,res: integer;
begin
writeln("введите количество дней");
readln(x); //читаем количество дней которое ввели
for i:=1 to x do //цикл от одного до введенного количества дней
res:= res*2; //удваиваем ставку
writeln(IntTostr(res)); //вывод результата

Цикл по счётчику, это наверное цикл с параметром.
sum:=1;
for i:=1 to 13 do
begin
sum:=sum*2;
end;
write('Proigrannaia summa sostavliaet=', sum)

И вообще-то этот бред можно посчитать быстрее по формуле суммы геометрической прогрессии!

N=14;
pow2=exp(ln(2) * N) ; // 2 в степени N
sum=2*(1-pow2)/(1-2);

Да и ещё:
" for i:=1 to x do //цикл от одного до введенного количества дней
res:= res*2; //удваиваем ставку ВЫ НА ПАСКАЛЕ КОМЕНТИТЕ ИЛИ НА СИ?
ТАК В СТЕПЕНЬ ВОЗВОДЯТ ТОЛЬКО ТУПЫЕ!!!!