Question

一道Pascal问题，求大师解答，请用最简洁的方法，谢谢！

题目描述
每天中午下课铃一打，同学们为了能尽早吃上饭，不要排那么长时间的队，都像狼一样冲向食堂，校领导看到这种情况很是担忧，因为学生们这样狂奔很危险，所以就要求必须等所有同学都来到食堂才能开始打饭，并且把排队打饭的顺序固定下来，这样谁都不用抢了。
学校里一共有N(1<=N<=100)个学生，每个学生打饭所需时间也是已知的，为了不让学生排队等得心烦，要求设计一个排队顺序使得所有学生的等待时间之和最小，等待时间为从开始排队到开始打饭所需的时间，所以第一个学生的等待时间为0。

为了给同学们新鲜感，领导想在保证等待时间之和最小的情况下尽可能多地改变排队顺序，所以想知道一共有多少种排队顺序?你能帮忙吗?
输入
第一行输入一个整数N(1<=N<=100)，表示学生人数。
第二行输入N个正整数(在1到100之间),中间用空格隔开，表示每个学生打饭所需要的时间。
输出
一行输出两个整数，第一个数表示最小的等待时间之和，第二个整数表示在保证等待时间之和最小的前提下的排队方案数，第二个数可能很大，所以输出方案总数对2011的余数。
样例输入
4 1 2 1 2
样例输出
7 4

Answer 1

var a,b,c:array[1..100]of integer;
d:array[1..100]of integer;
n,i,j,k,t,s:integer;
begin
read(n); fillchar(c,sizeof(c),0);
for i:=1 to n do
begin
read(a[i]); inc(d[a[i]]);
end;
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if a[j]<a[k] then k:=j;
t:=a[k]; a[k]:=a[i]; a[i]:=t;
end;
for i:=2 to n do
begin
b[i]:=a[i-1]+b[i-1];
c[i]:=b[i]+c[i-1];
end;
s:=1;
for i:=1 to 100 do
for j:=2 to d[i] do
s:=s*j mod 2011;
writeln(c[n],' ',s);
end.