var
    n,i,j,l,p,ans,s:longint;
    t,a:array[1..100000]of longint;
    k:array[1..300000]of longint;
    x:array[1..23170,1..23170]of longint;
begin
    read(n);
    for i:=1 to n do
    begin
        read(t[i],k[i]);
        for j:=1 to k[i] do read(x[i,j]);
    end;
    for i:=1 to n do
    begin
        for p:=1 to 100000 do a[p]:=0;
        ans:=0;
            for l:=1 to n do
            begin
                if (t[l]>=t[i]-86399)and(t[l]<=t[i])
                    then begin
                        for j:=1 to k[l] do inc(a[x[l,j]]);
                    end;
            end;
            for p:=1 to 100000 do
                if a[p]<>0 then inc(ans);
            writeln(ans);
    end;
end.
在GUIDE里面编译没错呀！！！！大神求救