program sholar;

type two=array [1..3,0..600] of LONGINT;

var

a:two;

i,j,n,k:integer;

begin

readln(n);

for j:=1 to n do

for i:=1 to 3 do

read(a);

for j:=1 to n do

begin

a[2,j]:=a[1,j]+a[2,j]+a[3,j];

a[3,j]:=j;

end;

for j:=1 to n do

begin

for i:=1 to 3 do

a:=a;

i:=j-1;

while a[2,0]a[1,j] then

for i:=1 to 3 do

begin

k:=a;

a:=a;

a:=k;

end

else

if ( a[1,j-1]=a[1,j]) and (a[3,j-1]=5 THEN

for i:=n downto n-4 do

writeln(a[3,i],' ',a[2,i]);

end.

帮忙看看是哪里的问题，算是鼓励初学者了，谢谢~