uses crt;
var N, M, k, i, j, X : integer;
    A, B : array [1 .. 1000] of integer;
    
begin
clrscr;
readln(N);
for i := 1 to N do read(A[i]);
readln(M);
for i := 1 to M do read(B[i]);

for i := 1 to M do
    begin
        if B[i] = A[1] then
            begin
                k := 1;
                for j := i to i + N - 1 do
                    begin
                        if B[j] <> A[k] then break;
                        k := k + 1;
                    end;
                if k = N + 1 then 
                    begin
                        write('A la day con lien tiep cua B');
                        X := 1;
                        break;
                    end;
            end;
    end;

if X = 0 then write('A khong la day con lien tiep cua B');

readln
end.