var m1, m2, m : array[1..50000] of Integer;
    i, j, dp, k : Integer;
begin
while not seekeof do
begin
Inc(i);
   read(m[i]);
end;
for j:=1 to m[1]+1 do
m1[j]:=m[j];
for j:=m[1]+2 to i do
begin
inc(k);
m2[k]:=m[j];
end;
for i:=2 to m1[1] do
begin
for j:=2 to m2[1] do
    if m1[i]+m2[j]= 10000 then dp:=1;
if dp=1 then break;
end;
if dp=1 then Write('YES') else Write('NO');
end.

try test
1
5000
1
5000