program konyvek;
type konyv=record
     cim:string[30];
     szerzo:string[20];
     ar:real
     end;
var k:array[1..4] of konyv;
    cs:konyv;
    i,j:byte;
    s:string;
begin
     for i:=1 to 4 do
     begin
      readln(k[i].cim);
      readln(k[i].szerzo);
      readln(k[i].ar)
     end;
     for i:=1 to 3 do
      for j:=1 to 4-i do
       if k[j].ar>k[j+1].ar then
                            begin
                             cs:=k[j];
                             k[j]:=k[j+1];
                             k[j+1]:=cs
                            end;
     for i:=1 to 4 do
      with k[i] do
       writeln(ar:10:2, cim:30,szerzo:20);
     for i:=1 to 3 do
      for j:=1 to 4-i do
       if k[j].cim>k[j+1].cim then
                            begin
                             cs:=k[j];
                             k[j]:=k[j+1];
                             k[j+1]:=cs
                            end;
     for i:=1 to 4 do
      with k[i] do
       writeln(cim:30,ar:10:2, szerzo:20);
     readln
end.