program Sort(input, output);

type  PlayerType = record
          ID, AtBat, Single, Double, Triple, HR, Ave:  integer;
      end;
      TeamArray = Array [1 .. 20] of PlayerType;

var   N,  I:   integer;
      Team:  TeamArray;




procedure SortTeam (N: integer; var Team: TeamArray); external;

begin
  Writeln ('Enter number of players');
  Readln (N);
  Writeln ('For each player enter ID, at bats, singles,',
                      ' doubles,');

  Writeln ('triples and home runs in that order.');
  for I := 1 to N do
    with Team[i] do begin
       Readln (ID, AtBat, Single, Double, Triple, HR);
       Ave := Round(1000 * (Single + Double + Triple + HR)/AtBat)
    end;  {with}
  SortTeam(N, Team);
  for I := 1 to N do
     with Team[i] do
       Writeln (ID:3, AtBat:4, Single:4, Double:4, Triple:4,
                     HR:4, Ave/1000:10:3)
end.