为什么70？（代码较短）

program p1093;
var
 n:integer;
 a,x,k:array[1..300]of integer;
 i,y,z,j,b,c:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(x[i],y,z);
   k[i]:=i;
   a[i]:=x[i]+y+z;
  end;
 for i:=1 to n do
  for j:=i to n do
   if (a[i]<a[j])or((a[i]=a[j])and(x[i]<x[j]))or((a[i]=a[j])and(x[i]=x[j])and(k[i]>k[j])) then
    begin
     b:=a[i]; a[i]:=a[j]; a[j]:=b;
     c:=k[i]; k[i]:=k[j]; k[j]:=c;
    end;
 for i:=1 to 5 do writeln(k[i],' ',a[i]);
end.