记录编号	75481	评测结果	AAAAAAAAAA
题目名称	[NOIP 2009]潜伏者	最终得分	100
用户昵称	(⊙o⊙)…	是否通过	通过
代码语言	Pascal	运行时间	0.008 s
提交时间	2013-10-27 21:50:15	内存使用	0.17 MiB

program spy(input,output);
var
a,b:array['A'..'Z'] of char;
st1,st2,st3:string;
i,j,n:integer;
ch:char;
procedure work;
begin
writeln('Failed');
close(input);close(output);
halt;
end;
begin
assign(input,'spy.in');assign(output,'spy.out');
reset(input);rewrite(output);
readln(st1);readln(st2);readln(st3);
n:=length(st1);
for ch:='A' to 'Z' do
    begin
      a[ch]:='#';
      b[ch]:='#';
    end;
for i:=1 to n do
    if ((a[st1[i]]='#') and (b[st2[i]]='#')) or (a[st1[i]]=st2[i]) then
      begin
        a[st1[i]]:=st2[i];
        b[st2[i]]:='@';
      end
      else work;
for ch:='A' to 'Z' do
    if b[ch]='#' then work;
for i:=1 to length(st3) do
    write(a[st3[i]]);
writeln;
close(input);close(output);
end.