program exp1;
var
a:array[1..6] of longint;
s,t,i,j:longint;
begin
a[1]:=1;t:=0;
for i:=2 to 6 do
begin
s:=0;
for j:=1 to i-1 do
s:=s+a[j];
a[i]:=s+1;
end;
for i:=1 to 6 do
t:=t+a[i];
writeln('t=',t);
end.
输出：t=63