pascal的一个阅读程序题

pascal的一个阅读程序题
var i,j,n,s,t:longint;
a:array[0..100]of longint;
begin
s:=0;t:=0;n:=8;
for i:=0 to n do a[i]:=0;
while a[0]=0 do
begin
j:=n;
while a[j]=2 do
begin
dec(t,a[j]);a[j]:=0;dec(j);
end;
inc(a[j]);
if a[0]=1 then break;
inc(t);
inc(s,t);
writeln;
end;
writeln(s);
end.
我不想知知道答案
我想知道这个程序是干什么的