---

const
  k = 100;

var
  a, b: text; 
  s: array[1..k] of real; 
  c: real; 
  n, i, j: integer;

begin
  assign(a, 'lol.txt'); 
  assign(b, '2.txt'); 
  Reset(a); 
  Rewrite(b); 
  while (not eof(a)) and (n < k) do
  begin
    n := n + 1; 
    readln(a, s[n]);
  end; 
  writeln(s); 
  for i := 1 to n - 1 do
  begin
    for j := 1 to n - i do
    begin
      if s[j] < s[j + 1] then begin
        c := s[j]; 
        s[j] := s[j + 1]; 
        s[j + 1] := c; 
      end; 
    end; 
  end; 
  for i := 1 to n do
    writeln(b, s[i]);
  close(a); 
  close(b); 
end.

---

---

---