rqnoj/rqnoj16.pas

   1 var
   2 n,a,b,e,i,sum,ans,max:longint;
   3 c,d:boolean;
   4 maxs,s:string;
   5 ch:char;
   6
   7 begin
   8    readln(n);
   9    for i:=1 to n do
  10    begin
  11       read(ch); s:='';
  12       a:=0; b:=0; c:=false; d:=c; e:=0;
  13       while ch<>' ' do
  14       begin
  15          s:=s+ch;
  16          read(ch);
  17       end;
  18       read(a,b);
  19       read(ch,ch);
  20       if ch='Y' then c:=true;
  21       read(ch,ch);
  22       if ch='Y' then d:=true;
  23       read(e);
  24       ans:=0;
  25       if (a>80) and (e>0) then inc(ans,8000);
  26       if (a>85) and (b>80) then inc(ans,4000);
  27       if (a>90) then inc(ans,2000);
  28       if (a>85) and (d) then inc(ans,1000);
  29       if (b>80) and (c) then inc(ans,850);
  30       if ans>max then begin maxs:=s; max:=ans; end;
  31       inc(sum,ans);
  32       readln;
  33    end;
  34    writeln(maxs);
  35    writeln(max);
  36    writeln(sum);
  37 end.