var tt:array[1..1000000] of int64;ss1,ss2,ss:array[1..1000000] of string;var n,i,j,t,tmp:longint;s,s1,s2:string;
begin
        writeln('nhap so nguoi: ');readln(n);
        for i := 1 to n do
        begin
                writeln('nhap ho: ');readln(s);
                writeln('nhap ten: ');readln(s1);
                writeln('nhap tuoi: ');readln(t);
                writeln('nhap que quan: ');readln(s2);
                ss[i]:=s;
                ss1[i]:=s1;
                ss2[i]:=s2;
                tt[i]:=t;
                s:='';
                s1:='';
                t:=0;
                s2:='';
        end;
        for i := 1 to n-1 do
        begin
                for j := n downto i+1 do
                begin
                        if tt[i] < tt[j-1] then
                        begin
                                tt[i]:=tt[j];
                                tt[j]:=tmp;
                                tmp:=tt[j];
                        end;
                end;
        end;
        for i := 1 to n do
        begin
                writeln(ss[i],' ',ss1[i],' ',tt[i],' ',ss2[i]);
        end;
end.

@Hômnaytôibịrob