Pascal :

var a:array[1..32767] of integer;
    i,n,t,j:integer;
begin
 i:=0;
 while not eoln do
  begin
   i:=i+1;
   read(a[i]);
  end;
  readln;
  while not eoln do
  begin
   i:=i+1;
   read(a[i]);
  end;
  n:=i;
 for j:=1 to n-1 do
  for i:= 1 to n-j do
   if a[i]<a[i+1] then
    begin
     t:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=t;
    end;
 for i:=n downto 2 do
  write(a[i],' ');
 writeln(a[1]);
end.