Readln(N);
{ ввод исходных данных } for i:=1 to N do begin Info[i].name:= ''; for k:=1 to 2 do Repeat Read(c); Info[i].name:= Info[i].name + c; until c = ' '; Info[i].sum:= 0; for k:=1 to 3 do begin Read(mark); Info[i].sum:= Info[i].sum + mark; End; Readln; End; { поиск трех минимальных } min1:= 20; min2:= 20; min3:= 20; for i:=1 to N do begin if Info[i].sum <min1 then begin min3:= min2; min2:= min1; min1:= Info[i].sum; End else if Info[i].sum <min2 then begin min3:= min2; min2:= Info[i].sum; End else if Info[i].sum <min3 then min3:= Info[i].sum; End; { вывод результата } for i:=1 to N do if Info[i].sum <= min3 then writeln(Info[i].name); End.
|