uses crt;
var i,j,n,max,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]);
   for i:=2 to n do  
      for j:=2 to i do 
         if a[i]>a[j] then 
            begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
   for i:=2 to n do 
      if (i=2)or(a[i-1]<>a[i]) then  
         begin
            write(a[1]+a[i],' ');
            if a[i]+a[1]>max then max:=a[i]+a[1];
         end;
   writeln;
   writeln('So lon nhat la ',max);
readln
end.

uses crt;
var a,s:array[1..1000000] of longint;
      n,i,max,j,tg:longint;
BEGIN
      clrscr;
      readln(n);
      for i:=1 to n do
            begin
                  read(a[i]);
            end;
      max:=s[1];
      for i:=2 to n-1 do 
            for j:=2 to n do 
                  if a[i]>a[j] then
                        begin
                              tg:=a[i];
                              a[i]:=a[j];
                              a[j]:=tg;
                        end;
      for i:=2 to n do s[i]:=a[1]+a[i];
      for i:=2 to n do if (i = 2) or (a[i-1] <> a[i]) then
            begin
                  write(s[i],' ');
                  if s[i] > max then max:=s[i];
            end;
      writeln;
      writeln('So lon nhat la ',max);
      readln
END.