有两道pascal编程题不会做

1、三塔数

Description

有A、B、C三根柱子，在A柱从上到下堆放着由小到大不同大小的n个盘子；今将A柱上的盘子按下述规则经B柱移动到C柱：
1、每次只移动一个盘子
2、在移动过程中，小盘子只能放在大盘子的上面

Input

只有一行且只有一个正整数：n
( 1 <= n <= 60 )

Output

只有一行且只有一个正整数：将n个盘子从A柱经B柱移动到C柱的最少移动次数

Sample Input

3

Sample Output

7

2、四塔数

Description

有A、B、C、D四根柱子，在A柱从上到下堆放着由小到大不同大小的n个盘子；今将A柱上的盘子按下述规则经B或C柱移动到D柱：
1、每次只移动一个盘子
2、在移动过程中，小盘子只能放在大盘子的上面

Input

只有一行且只有一个正整数：n
( 1 <=n <= 60 )

Output

只有一行且只有一个正整数：将n个盘子从A柱经B或C柱移动到D柱的最少次数

Sample Input

3

Sample Output

5

这些题目来自 http://218.75.87.27/pj这个网站，希望大家先在这里试下，如果答得好咱还可以加分

a[n]=2^n-1(2的N次方减一)

第一个：

var

x:longint;

n,i:integer;

begin

readln(n);

for i:=1 to n do

x:=x*2;

dec(x); {相当于x:=x-1;}

writeln(x);

end.