var array 100 of record name string sum integer end char integer begin

var р:array[1..100] of record
name:string;
sum:integer;
end;
с:char;
i,j,N,m:integer;
begin
readln(N);
for i:=l to N do
begin
p[i].name: ' ';
repeat
   readln(c);
   p[i].name:=p[i].name+c
until c=' ';   
repeat
  read(с);
  p[i].name:=p[i].name+c
until c=' ';   
p[i].sum:=0; 
for j:=1 to 3 do
begin
read(m);
if m=2 then p[i].sum:=p[i].sum+1
end; 
readln;
end;
for i:=1 to N do
    if p[i].sum=3 then writeln(p[i].name);
for i:=1 to N do
if p[i].sum=2 then writeln(p[i].name);
for i:=1 to N do
if p[i].sum=1 then writeln(p[i].name)
end.