Cod sursă (job #466046)

Program lanterna;
var a:array[1..100010] of integer;
    n,i,j,x:integer;
    fi,fo:text;
    timpul:longint;
begin
assign(fi,'lanterna.in'); reset(fi);
assign(fo,'lanterna.out'); rewrite(fo);
readln(fi,n);
timpul:=0;
for i:=1 to n do read(fi,a[i]);
 for i:=1 to n-1 do
  for j:=i+1 to n do
       if(a[i]>a[j]) then begin x:=a[i];
                                 a[i]:=a[j];
                                 a[j]:=x;
                                 end;
while(n>3) do begin
                    if (a[1]+2*a[2]+a[n]<=2*a[1]+a[n]+a[n-1]) then timpul:=timpul + (a[1]+2*a[2]+a[n])
                    else timpul:=timpul + (2*a[1]+a[n]+a[n-1]);
                    n:=n-2;
                    end;
if (n=3) then timpul:=timpul + (a[1]+a[2]+a[3])
          else timpul:=timpul+ a[2];
write(fo,timpul);
close(fi);
close(fo);
end.