我这里的输入格式是
总个数
第一个的长度 粗细 编号
第二个的长度 粗细 编号
……

var
  i,n,l,w,c,maxl,minw,maxc:integer;
procedure fz;
begin
  maxl:=l; minw:=w; maxc:=c;
end;
begin
read(n);
for i:=1 to n do begin
  read(l,w,c);
  if l>maxl then fz;
  if (l=maxl) and (w<minw) then fz;
  if (l=maxl) and (w=minw) and (c>maxc) then fz;
end;
write('code=',maxc);
end.