Cod sursă (job #465931)

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