it is very simple problem but my prog got wa, i dont know why?!


const
  z:array[1..2] of byte = (2,1);
var
  a:array[-32768..32767] of byte;
  s:string;
  b:integer;
  i,n:longint;

begin
{  assign(input,'in.in');
  reset(input);}

  fillchar(a,sizeof(a),0);

  readln(n);
  for i:=1 to n do
  begin
    readln(b);
    a[b]:=1;
  end;

  readln(n);
  for i:=1 to n do
  begin
    readln(b);
    if (b=5000) and (a[b]=1) then
    a[b]:=3 else a[b]:=2;
  end;

{  close(input); }

  s:='NO';
  for i:=-32768 to 32767 do
  if a[i]<>0 then
  begin
    if a[i]=3 then
    begin
      s:='YES';
      break;
    end;
    if a[10000-i]=z[a[i]] then
    begin
      s:='YES';
      break;
    end
  end;

  writeln(s);
end.

Try this:
1
3000
2
7000
3000.
Your answer is NO;)

const
  max=4268;
var
  a:array[-max..max] of 0..1;
  n,n2,i,j:longint;
  procedure rea;
    var
      i,j,p:longint;
      t:boolean;
    begin
      fillchar(a,sizeof(a),0);
      t:=false;
      readln(n);
      for i:=1 to n do
        begin
          readln(p);
          a[10000-p]:=1;
        end;
      readln(n2);
      for i:=1 to n2 do
        begin
          readln(p);
          if a[p]=1
            then t:=true;
        end;
      if not t
        then writeln('NO')
        else writeln('YES');
    end;
begin
  while not eof do
    begin
      rea;
    end;
end.