这题有3个要求，只须将3个数据用数组存放，然后竟行3个循环判断即可
程序如下：
var
        n,i,j,x,y,z,max:integer;
        a,b,c:array[1..1000] of integer;//长度，细度，编码
begin
        read(n);//N跟钢管                                     \
        max:=1;//MAX保存的只是I的值，最后判断变成a[max]即可   /
        for i:=1 to n do                                      \         初始化，存储数据
                read(a[i],b[i],c[i]);//存储数据               / 
        for i:=1 to n do
                if a[i]>a[max] then max:=i;//第一次循环，对长度进行判断，找出最长者
        x:=a[max];//保存数据，因为为了最终判断，只得先将a[max]变成0
        a[max]:=0;
        max:=1;
        for i:=1 to n do
                if b[i]<b[max] then max:=i;//第二次循环，找出最细者
        y:=b[max];//保存数据
        b[max]:=0;
        max:=1;
        for i:=1 to n do
                if c[i]>c[max] then max:=i;//第三次循环，找出编码最大者
        z:=c[max];//保存数据
        c[max]:=0;
        for i:=1 to n do
                if a[i]*b[i]*c[i]=0 then//最终判断（前面以将之最的原始数据变成0，只须判断a[i],b[i],c[i]相乘是否得0，如果的0，表示此管为目标管
                begin
                        writeln('shi di ',i,' geng gan zi');     \
                        write('chang du wei:',x,',');            /     输出
                        write('xi du wei:',y,',');               \
                        write('bian ma wei:',z,'.');             /
                        break;
                end;
end.


第一次做，可能有点失误，lz包涵