program alex;
var f:text;
    i,k,t,p,b:longint;
    c:array[1..100]of longint;
begin
assign(f,'fructe.in');reset(f);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,p,b);
    if p<>b then begin
                 k:=k+1;
                 c[k]:=0;
                 end;
    if p=b then begin
                k:=k+1;
                c[k]:=1;
                end;
    end;
close(f);
assign(f,'fructe.out');rewrite(f);
for i:=1 to k do
    writeln(f,c[i]);
close(f);
end.