var i,n:integer;
begin
i := 9;
n := 1;
while i > 0 do
begin
n := 2 * (n + 1);
i := i - 1;
end;
writeln(n);
readln;
end.
/**************************************************************
Problem: 1082
User: admin
Language: Pascal
Result: Runtime Error
****************************************************************/