{Ethan Clark
12/14/11
Mr. Johnson
Int5
ENLOE HS
NFL Drafts}
Program Drafts2;
uses crt;
type
    data=array[1..10,1..2] of real;
    solve=array[1..5] of real;
VAR
   input:data;
   result:solve;
   total:real;
   check:real;
   check2:real;
   num:integer;
   diff:real;
   high16:real;
   low16:real;
   high18:real;
   low18:real;
   c:integer;
   d:integer;
Begin
     clrscr;
     num:=1;
     total:=0;
     low16:=100000000;
     low18:=100000000;
     For c:=1 to 10 do
     Begin
          For d:=1 to 2 do
          Begin
               readln(input[c][d]);
          End;
          If (c = 1) then
          Begin
               check2:=(input[1][2]*1000000)/input[1][1];
               high16:=(input[1][2]*1000000)/(input[1][1]*16);
               high18:=(input[1][2]*1000000)/(input[1][1]*18);
          End;
          total:=((input[c][2]/input[c][1])*1000000)+total;
          If (c>1) then
          Begin
               check:=(input[c][2]*1000000)/input[c][1];
               If (check>(input[c-1][2]*1000000)/input[c-1][1]) and (check>check2) then
               Begin
                    check2:=check;
                    num:=c;
               end;
               If ((check/16)>=((input[num][2]*1000000)/(input[num][1]*16))) and (check>high16) then
               Begin
                    high16:=(check/16);
               End
               Else Begin
                         If ((check/16)<low16) then
                         Begin
                              low16:=(check/16);
                         End;
               End;
               If ((check/18)>=((input[num][2]*1000000)/(input[num][1]*18))) and (check>high18) then
               Begin
                    high18:=(check/18);
               End
               Else Begin
                         If ((check/18)<low18) then
                         Begin
                              low18:=(check/18);
                         End;
               End;
          end;

     End;
     result[1]:=Round(total/10);
     result[2]:=Round(check2);
     result[3]:=Round(high16-low16);
     result[4]:=Round((high18+low18)/2);
     result[5]:=Round((total/160)-(total/180));
     For c:=1 to 5 do
     Begin
          writeln;
          writeln(result[c]:0:0);
          If (c=2) then
          Begin
               write(' by ',num);
          End;
     end;
     readln;
end.