记录编号	1119	评测结果	AWWWWWWWWW
题目名称	[NOIP 2004]合并果子	最终得分	10
用户昵称	书剑飘零	是否通过	未通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-24 09:42:40	内存使用	0.00 MiB

Program tz;
Var
   n,k,i,s:longint;f1,f2:text;
   a:array [1..10000] of longint;

procedure Tsort(q:integer);
Var
   temp:array [1..20000] of boolean;
   i,j:integer;
begin
   k:=0;
   fillchar(temp,sizeof(temp),false);

   For i:=1 to q do
     temp[a[i]]:=true;

   fillchar(a,sizeof(a),0);
   For i:=1 to 10000 do
     if temp[i] then
        Begin
          inc(k);
          a[k]:=i;
        End;
End;
Begin
   assign(f1,'fruit.in');
   assign(f2,'fruit.out');
   reset(f1);rewrite(f2);
   readln(f1,n);
   For i:=1 to n do read(f1,a[i]);
   tsort(n);
   s:=a[1];
   for i:=2 to n do
     begin
       if s=a[1] then s:=s+a[i] else
       s:=s+s+a[i];
     end;
   writeln(f2,s);
   close(f1);close(f2);
End.