{Yujian Tang
 12/14/11
 Johnson
 Jr5
eNLOE HS
 Program 1: NFL Drafts}
Program DraftPickI;
uses crt;
TYPE contract = record
                years:integer;
                value:real;
                salary:real;
     end;
     s_arr= array [1..5] of contract;
VAR input:s_arr;
    o1,a,b,c,year,i:integer;
    sum,ts,x,m,n,o2,o3,o4,o5:real;
Begin
     clrscr;
     For c:=1 to 5 do
     begin
          writeln ('Years and Value?');
          readln(input[c].years,input[c].value);
          year:=input[c].years+year;
          input[c].salary:=input[c].value/input[c].years;
          ts:=ts+input[c].salary;
          x:=input[c].value/input[c].years;
          If input[c].salary>10 then
          begin
               o1:=o1+1;
          end;
          m:=input[c].salary/16;
          If o3=0 then
          begin
               o3:=input[c].salary/16;
          end;
          If o3>m then
          begin
               o3:=m;
          end;
          n:=input[c].salary/18;
          If o4<n then
          begin
               o4:=n;
          end;
          sum:=input[c].salary/16-input[c].salary/18+sum;
     end;
     o2:=ts/5;
     o5:=sum/5;
     writeln(o1);
     writeln(o2*1000000:0:0);
     writeln(o3*1000000:0:0);
     writeln(o4*1000000:0:0);
     writeln(o5*1000000:0:0);
     readln;
End.