program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a,s:array[-3..1048577] of integer; x1,r:string; f1,f2:text; kd,x,v,i,j,k,n:integer; p:boolean; begin assign(f1,'order.dat'); reset(f1); assign(f2,'order.sol'); rewrite(f2); readln(f1,n); for i:=1 to n do begin read(f1,k); for j:=1 to k do read(f1,a[j]); readln(f1); {for j:=1 to k do write(f2,a[j]); writeln(f2); writeln(f2); end; } for j:=2 to k do begin for v:=1 to j do if a[j]0 do begin x:=s[i]+s[i-1]*10+s[i-2]*100+s[i-3]*1000; I:=I-4; if x=0 then x1:='0'; if x=1 then x1:='1'; if x=10 then x1:='2'; if x=11 then x1:='3'; if x=100 then x1:='4'; if x=101 then x1:='5'; if x=110 then x1:='6'; if x=111 then x1:='7'; if x=1000 then x1:='8'; if x=1001 then x1:='9'; if x=1010 then x1:='A'; if x=1011 then x1:='B'; if x=1100 then x1:='C'; if x=1101 then x1:='D'; if x=1110 then x1:='E'; if x=1111 then x1:='F'; r:=x1+r; end; { i:=1; p:=true; while (p) do begin if (r[i]='0')and(p) then r:=copy(r,2,length(r)) else p:=false; end; write(f2,r); } //r:='00000111101'; i:=0; k:=length(r); j:=0; kd:=0; while (i=0)and(j<>k) do begin j:=j+1; if r[j]='0' then kd:=kd+1 else i:=1; end; delete(r,1,kd); write(f2,r); close(f1); close(f2); end.