1.蟠桃园的桃子
Description
蟠桃园的桃子再次成熟时,王母娘娘同意孙悟空的请求,将一部分桃子分给下界的猴子吃,但必须遵守下列要求:
1、一只猴子只能吃一只桃子；
2、每一天只能吃当天桃子总数的一半，但孙悟空可以多分一只桃子给没有吃过桃子的猴子；
3、到第n天时只剩一只桃子。
其中：n 由王母娘娘指定，孙悟空要告诉王母娘娘应领的桃子总数 k 。
Input
只有一行且只有一个正整数：n
( 1 <= n <= 10000 )
Output
只有一行且只有一个正整数：k
Sample Input
4
Sample Output
22
Source
基础题
大家帮帮忙，要具体的程序，记住是PASCAL的，有模块也行。
大家还可以去218.75.87.27/pj这个网站看看，请快一点！
我会做，Accepted了
但是网站今天进不去，只好用以前存在电脑里的了。
数据太大，要用高精度。
以下是程序：
program taozi;
var
a:array[1..10000] of integer;
i,j,m,n:longint;
begin
readln(n);
a[1]:=1;m:=1;
for i:=2 to n do
begin
inc(a[1]);
for j:=1 to m do a[j]:=a[j]*2;
for j:=1 to m-1 do
begin
a[j+1]:=a[j+1]+a[j] div 10;
a[j]:=a[j] mod 10;
end;
if a[m]>9 then
begin
inc(m);
a[m]:=a[m-1] div 10;
a[m-1]:=a[m-1] mod 10;
end;
end;
for i:=m downto 1 do write(a[i]);
end.
program houzichitao;
var n,k,i:longint; begin readln(n); k:=1;
if n<=12 then for i:=1 to n-1 do k:=(k+1)*2; writeln(k); end.