var
say,say2:array [1..10000] of integer;
n,k,i,m,s:longint;
begin
 s:=0;
 readln(n);
    repeat
    k:=k+1;
    readln(say[k]);
    until k=n;
 readln(m);
    repeat
    i:=i+1;
    readln(say2[i]);
    until i=m;
 i:=0;
 k:=0;
    repeat
    k:=k+1;
       repeat
       i:=i+1;
       if (say[k]+say2[i])=10000  then s:=1;
       until s=1;
    until s=1;
  if s=1  then writeln('yes')
  else writeln('no');
 end.

Maybe 'YES' instead of 'yes'?