var d, p: integer;
begin
p:=1;
d:=5;
while d>1 do
begin
p:=2*(p+1);
d:=d-1
end;
writeln (p)
end.

输出：46