Program zad;
var s1,s2:string;
   Procedure Words(s1,s2:string);
   var i,p:integer;
   begin
   write('');
      if length(s1)<>length(s2)
   then writeln('nelzia') else begin i:=1;
   repeat
      p:=pos(s2[i],s1);
      delete(s1,p,1);
   inc(i);
   until(p=0) or (i> length(s2));
      if p=0 then writeln('нельзя')
   else writeln('можно'); end;end;
Begin
writeln('введите первую строку'); readln(s1);
writeln('введите вторую строку'); readln(s2);
   words(s1,s2);
readln;
End.