type uchenik =record

Fam:string[20];

name:string[15];

b1,b2,b3:integer;

end;

var

srB:array [1..100] of real;

i,k,l,p,N,m1,m2,m3:integer;

max1,max2,max3,sr:real;

c:char;

a:array[1..100] of uchenik;

begin

read(n); //считали количество учеников

if n>=10 then begin

for I:=1 to n do

begin

a[i].fam:='';

repeat read(c);

a[i].fam:= a[i].fam+c;

until c=' '; //считали фамилию

repeat read(c);

a[i].name:= a[i].name+c;

until c=' '; //считали имя

read(m1); a[i].b1:=m1;

read(m2); a[i].b2:=m2;

read(m3); a[i].b3:=m3;

end; //считали балы

for i:= 1 to n do

srB[i]:= a[i].b1+a[i].b2+a[i].b3; //создали массив, содержащий средние балы

max1:=srB[1]; max2:=0;max3:=0;

for i:= 2 to n do begin //нашли три максимума

if srB[i]>max1 then begin max3:=max2; max2:=max1; max1:=srB[i]; k:=i; end

else if srB[i]>max2 then begin max3:=max2; max2:=srB[i]; l:=i; end

else if srB[i]>max3 then begin max3:=srB[i]; p:=i; end;

end;

for i:=1 to n do

if srB[i]>= max3 then writeln(a[i].fam, a[i].name);

end

else writeln('учеников не может быть меньше 10');

end.