谁帮忙解读一下这个pascal程序

谁帮忙解读一下这个pascal程序
多项式 ( Polynomial )
(poly.pas/in/out)
一个 n (1≤ n≤ 100) 次整系数多项式x^n+a1*x(n-1)+……+an*x^0 ,已知它的 n 个非正整数根,求方程的系数.
输入格式：
从文件POLY.IN读入数据.文件第一行有一个正整数n.第二行有 n 个非正整数,分别为方程的根 ,这些数不小于-100.
输出格式：输出到文件POLY.OUT,第 i 行为 ai .结果保证不超过 10^30
样例一
POLY.INP
2
-3 –2
POLY.OUT
5
6
样例二
POLY.INP
4
0 -1 -2 -3
POLY.OUT
6
11
6
0
program poly;
var
f:array[0..100]of int64;
a:array[0..100]of longint;
i,j,n:longint;
tot:int64;
procedure dfs(num,k:longint;ans:int64);
var
j:longint;
begin
if k=i then
begin
inc(f[i],ans);
exit;
end;
for j:=num+1 to n do dfs(j,k+1,ans*a[j]);
end;
begin
assign(input,'poly.in');assign(output,'poly.out');
reset(input);rewrite(output);
readln(n);tot:=1;
for i:=1 to n do
begin
read(a[i]);
tot:=tot*a[i];
f[i]:=0;
end;
f[n]:=tot;
for i:=n-1 downto 1 do
dfs(0,0,1);
for i:=1 to n do writeln(abs(F[i]));
close(input);close(output);
end.