var b:array['A'..'Z']of boolean;
   s:string;i:integer;ch:char;
  begin
    readln(s);
     fillchar(b,sizeof(b),false);
    for i:=1 to length(s) do 
        b[s[i]]:=true;
    for ch:='A' to 'Z' do 
        if b[ch]=false then write(ch);
    end.
多看书
多思考

var 
  s:set of char;
  c:char;
begin
  s:=['A'..'Z']
  while not eoln do begin
    read(c);s:=s-[c];
  end;
  for c:='A' to 'Z' do if c in s then write(c);
end.

用类似计数排序的方法..
最后一次扫描  输出计数为0的字母。。。
O(n) 的时间复杂度