var i,sum,n:integer;
a:array[1..100] of integer;
peocdure sort (x:integer);
var i, j temp:integer;
begin
for i:=----------- to n-1 do
for j:=n downto ----------- do
begin
tmp:=a[j]
a[j]:=a[j-1]
a[j-1]:=tmp
end;
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
------------;
sort(1);
for i:=1 to n-1 do
begin
a[i+1]:=a[i]+a[i+1];
sum:=------------------;
---------------------------;
end;
writeln(sum)
end.

？

orz

orz

orz