uses crt; var inp,outp,ext1,ext2:text; n,k,miss,i,num,next,time,ex1,ex2:integer; begin clrscr; assign (inp,'inp.txt'); assign (outp,'outp.txt'); assign (ext1,'ext1.txt'); assign (ext2,'ext2.txt'); rewrite (outp); rewrite (ext1); rewrite (ext2); reset(inp); read(inp,n); k:=n; reset(inp); miss:=-2; for i:= 1 to n-1 do begin for time:= 1 to i+1 do begin read (inp,num); inc(miss); end; for time:= i to n-1 do begin read (inp,next); if num>=next then inc(miss) else num:=next; end; if miss=next then begin writeln (ext1,next); inc (ex1); end else begin num:=next; writeln (ext2,next); inc (ex2); end; end; end; miss:=-2; reset (inp); end; reset (ext1); reset (ext2); for time:= 1 to ex2 do begin read (ext2,num); write (outp,num,' '); end; writeln(outp); writeln(outp,k); for time:= 1 to ex1 do begin read (ext1,num); write (outp,num,' '); end; close(inp); close(ext1); close(ext2); close(outp); end.