另外，我交了一个平方的程序，说我TLE就算了，竟然说我WA，难道我平方都写错？
程序见下：
program ee;
var
  n,m:longint;
  i,j:longint;
  a,b:array[1..50000] of longint;
begin
  readln(n);
   for i:=1 to n do readln(a[i]);
   readln(m);
   for i:=1 to m do readln(b[i]);
   for i:=1 to n do
     for j:=1 to m do
       if a[i]+b[j]=10000 then
        begin
          writeln('YES');
          exit;
        end;
   writeln('NO');
end.