PersonalCorpus 版 (精华区)

156429 02:16:56 7 Mar 2002
Bozhang,HIT,P.R.China 1164 Pascal Accepted 0.02 sec 49K


var
    sum:array['A'..'Z'] of byte;
    n,m,p:integer;
    c:char;
begin
    fillchar(sum,sizeof(sum),0);
    readln(n,m,p);
    while n>0 do begin
        if eoln(input) then begin readln; dec(n); continue end;
        read(c); inc(sum[c]);
    end;
    while p>0 do begin
        if eoln(input) then begin readln; dec(p); continue end;
        read(c); dec(sum[c]);
    end;
    for c:='A' to 'Z' do for n:=1 to sum[c] do write(c); writeln;
end.