Cod sursă (job #547478)

Program Planterna;
var fi,fo:text;
    a:array[1..10000] of longint;
    n, i, j, x, S, y, min :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[j]<a[i] then begin x:=a[i];
                              a[i]:=a[j];
							  a[j]:=x;
                                                          end;
		 Writeln(fo, 'a[1] ', a[1]);
                 Writeln(fo, 'a[2] ', a[2]);
                 Writeln(fo, 'a[3] ', a[3]);
                 Writeln(fo, 'a[4] ', a[4]);
while n>3 do
 begin
  x:=a[1]+2*a[2]+a[n];   Writeln(fo, 'X ', X);
  y:=2*a[1]+a[n-1]+a[n];  Writeln(fo, 'Y ', Y);
 if x<y then min:= x else min:=y;
 S:=S+min;
 n:=n-2;
 end;
if n=3 then S:=S+a[1]+a[2]+a[3]
       else S:=S+a[2];
writeln(fo, S);
close(fi); close(fo);	   
end.