uses crt;
var f1, f2 : text;
    i, j, N, X : integer;
    A : array [1 .. 1000] of integer;
    
begin
clrscr;
assign(f1, 'Lonnho.inp'); reset(f1);
assign(f2, 'Lonnho.out'); rewrite(f2);

readln(f1, N);
for i := 1 to N do read(f1, A[i]);

for j := N downto 2 do 
    for i := 1 to j - 1 do
        if A[i] > A[i + 1] then 
            begin
                X := A[i];
                A[i] := A[i + 1];
                A[i + 1] := X;
            end;

for i := 2 to N - 1 do write(f2, A[i], ' ');

close(f1); close(f2);
readln
end.

uses crt;
var fi,fo: text;
    i,j,tg,n: integer;
    a: array[1..100000] of integer;
begin
    assign(fi,'lonnho.inp'); reset(fi);
    assign(fo,'lonnho.out'); rewrite(fo);
    readln(fi,n);
    for i:=1 to n do read(fi,a[i]);
    for i:=1 to n do for j:=i+1 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-1 do write(fo,a[i],' ');
    close(fi);
    close(fo);
end.