猴子摘了一堆枣，第一天吃了一半，还嫌不够，又多吃了一个；第二天又吃了剩下

var t,i:integer;
begin
t:=1;
for i:=2 to 10 do
begin
x:=(x+1)*2;
end;
writeln(x);
end.

program lx4;
var
x,i:integer;
begin
x:=1;
for i:=2 to 10 do
x:=(x+1)*2;
writeln(x);
end.