type word= packed array [1..10] of char;

var
use:array[1..10] of boolean;
i,j:integer;
x,y:word;
c:char;
res,alreadyusedsomething:boolean;

begin
for i:=1 to 10 do use[i]:=false;

x:=''; y:='';
write('input first(10 symbols)>> ');
for i:=1 to 10 do begin
  read(c); x[i]:=c;
end;
readln;
write('input second(10 symbols)>> ');
for i:=1 to 10 do begin
  read(c); y[i]:=c;
end;
readln;

for i:=1 to 10 do begin
  alreadyusedsomething:=false;
  for j:=1 to 10 do begin
    if ((not use[j]) and (x[i]=y[j]) and (not alreadyusedsomething)) then begin
      use[j]:=true; alreadyusedsomething:=true;
    end;
  end;
end;
res:=true;
for i:=1 to 10 do if use[j]=false then res:=false;

if (res) then writeln('It is an anagram!') else writeln('It is not an anagram');

end.