Var
 A:Array[1..4] of Integer;
 i,j:Byte;
 D:Integer;

Begin
 Writeln('Enter 4 numbers');
 for i:=1 to 3 do read(A[i]);
 Readln(A[4]);

 for i:=1 to 3 do
  for j:=1 to 4-i do
   if A[j]<A[j+1] then
    begin
     D:=A[j];
     A[j]:=A[j+1];
     A[j+1]:=D;
    end;

 writeln(A[1],' ',A[4],' ',A[2],' ',A[3]);

 Readln
End.

Var
 a1,a2,a3,a4,n1,n2,n3,n4:Integer;

Begin
 Writeln('Enter 4 numbers');
 Read(a1,a2,a3);
 Readln(a4);

 n1:=a1;
 if a2>n1 then n1:=a2;
 if a3>n1 then n1:=a3;
 if a4>n1 then n1:=a4;

 n2:=a1;
 if a2<n2 then n2:=a2;
 if a3<n2 then n2:=a3;
 if a4<n2 then n2:=a4;

 n3:=n2;
 if (a1>n3) and (a1<n1) then n3:=a1;
 if (a2>n3) and (a2<n1) then n3:=a2;
 if (a3>n3) and (a3<n1) then n3:=a3;
 if (a4>n3) and (a4<n1) then n3:=a4;

 n4:=n1;
 if (a1<n4) and (a1>n2) then n4:=a1;
 if (a2<n4) and (a2>n2) then n4:=a2;
 if (a3<n4) and (a3>n2) then n4:=a3;
 if (a4<n4) and (a4>n2) then n4:=a4;

 writeln(n1,' ',n2,' ',n3,' ',n4);

 Readln
End.