2009东莞特长生 Q1:惊人的记忆力

一、 惊人的记忆力
提交文件:　a.pas / a.exe
输入文件:　a.in
输出文件:　a.out
问题描述:
希望中学的小明非常聪明，记忆力非常的好，可以达到过目不忘的程度，你任意给他一列数，他可以很快的按从小到大的顺序说出来。现在小A为了考考小明，任意给小明两列数，要求他将这两个数列中的数合并成一个数列，按从小到大的顺序说出这些数，相同的数只保留一个。现在也请你编程序来解决这个问题。
数据输入:
从文件a.in中读入数据，第一行是一个正整数N，表示第一个数列有N个整数，第二行是第一个数列的N个整数，第三行是一个正整数M，表示第二个数列有M个整数，第四行是第二个数列的M个整数。
数据输出:
结果输出到a.out中，只有一行，就是这两个数列的数合并成一个数列后按从小到大输出的结果，相同的数只输出一次。
输入输出样例
a.in
5
12 17 19 34 20
7
19 30 12 50 20 55 17
a.out
12 17 19 20 30 34 50 55

数据范围
1=< N,M <= 10000, 两个数列中的数x都是整数，且符合条件: -1000 = < x <= 1000

思路：
桶牌模板……

var
 c:array[-1001..1001]of boolean;
 i,j,n,s,max,min:longint;
begin
 read(n);
 max:=0;
 min:=1000;
 for i:=1 to n do
   begin
     read(s);
     c[s]:=true;
     if s>max then max:=s;
     if sthen min:=s;
   end;
 read(n);
 for i:=1 to n do
   begin
     read(s);
     c[s]:=true;
     if s>max then max:=s;
     if sthen min:=s;
   end;
 for i:=min to max do
  if c[i] then write(i,' ');
end.