const m=255;
type tt = Record
name:array [1..m] of char; {íàçâàíèå ãîñóäàðñòâà}
sqr : real; {ïëîùàäü òåððèòîðèè}
peop, sch, hosp, inst: word{÷èñëåííîñòü íàñåëåíèÿ, ÷èñëî øêîë, áîëüíèö, âóçîâ}
end;
var tmp : string;
var country : array [1..30] of tt;
var ar : array [1..30] of real;
var index : array [1..30] of integer;
var n,i,j : integer;

Procedure Bubble();
Var i, j, t: Integer;
tmp : real;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If ar[Pred(j)] > ar[j] Then Begin { < }
        Tmp := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := Tmp;
        T := index[Pred(j)]; index[Pred(j)] := index[j]; index[j] := T
      End
End;

begin
  for i:= 1 to 30 do
    index[i]:=i;
  for i:= 1 to 30 do
    for j:= 1 to m do
      country[i].name[j]:=' ';
  read(n);
  for i:= 1 to n do begin
    readln(tmp);
    for j:= 1 to length(tmp) do
      country[i].name[j]:=tmp[j];
    readln(country[i].sqr);
    readln(country[i].peop,country[i].sch,country[i].hosp,country[i].inst);
  end;
  for i:= 1 to n do
    ar[i]:=country[i].sch/country[i].peop;
  bubble;
  for i:= 1 to n do begin
    for j:= 1 to m do
      write(country[index[i]].name[j]);
    writeln;
  end;
    { TODO -oUser -cConsole Main : Insert code here }
end.