Форум Всеукраїнської інтернет-олімпіади NetOI

Program area;
var i,n,s:word;
    x1,x2,x3,x4,y1,y2,y3,y4,c:integer;
procedure vv;
begin
  read(x1,y1,x2,y2,x3,y3,x4,y4);
  if (x1>x2)then begin c:=x1; x1:=x2; x2:=c; end;
  if (y1>y2)then begin c:=y1; y1:=y2; y2:=c; end;
  if (x3>x4)then begin c:=x3; x3:=x4; x4:=c; end;
  if (y3>y4)then begin c:=y3; y3:=y4; y4:=c; end;
end;
procedure viv;
begin
 write(s);
end;
procedure re;
begin
  if (x1>x4)or(x2<x3)or(y1>y4)or(y2<y3)
     then s:=0
     else if ((x1=x4)or(x2=x3))and((y1=y4)or(y2=y3))
             then s:=1                                                                        
             else if (x1=x4)or(x2=x3)or(y1=y4)or(y2=y3)
                     then s:=2
                     else s:=3;
end;
Begin
  read(n);
  for i:=1 to n
     do begin
          vv;
          re;
          viv;
        end;
End.

Program failure;
var i,n,s:longint;
    x1,x2,y1,y2,v1,v2,l1,l2:real;
procedure vv;
begin
read(v1,v2,l1,l2,x1,y1,x2,y2);
if x1=0 then x1:=y1;
if x2=0 then x2:=y2;
end;
procedure viv;
begin
 write(s);
end;
procedure re;
var t1,t2,t3,t4:real;
begin
  t1:=x1/v1;
  t2:=(x1+l1)/v1;
  t3:=x2/v2;
  t4:=(x2+l2)/v2;
  if (t1>=t4)or(t2<=t3) then s:=0
                        else s:=1;
end;
Begin
 read(n);
 for i:=1 to n do
     begin
       vv;
       re;
       viv;
     end;
End.