Входной файл - Pascal - Ответ 1124573

var p:array[1..100] of record
      fam:string;
      name:string;
      sum:integer;
    
      end;
    c:char;
    i,j,N,s1,s2,s3,m:integer;
 
begin
 
  Assign (Input,'a.txt');
  reset(Input);
  Assign(OutPut,'b.txt');
  rewrite(OutPut);
   readln(N);
  for i:=1 to N do
    
    begin
     
     p[i].fam:='';
       repeat
          read(c);
          p[i].fam:=p[i].fam+c
       until c=' '; {считана фамилия}
       
     p[i].name:='';
       repeat
          read(c);
          p[i].name:=p[i].name+c
       until c=' '; {считано имя}
   
     p[i].sum:=0;   
     for j:=1 to 3 do
        begin
         read(m);
         p[i].sum:=p[i].sum+m
        end; {подсчитана сумма баллов}
     readln;
    end;
 
  s1:=0; s2:=0; s3:=0;
  
  for i:=1 to N do
  
  begin
      
     if p[i].sum>s1 then
        begin
          s3:=s2; s2:=s1;
          s1:=p[i].sum
        end else
     
     if p[i].sum>s2 then
        begin
          s3:=s2; s2:=p[i].sum
        end else
      
     if p[i].sum>s3 then s3:=p[i].sum;
   end;
  
    for i:=1 to N do
    if p[i].sum>=s3 then  writeln(p[i].name);
    
    Close(OutPut);
end.