Ввести два слова. Определить, состоят ли они из одного и того же набора символов или нет.

var

s, s2 : String;

Check : Boolean;

i : Integer;

begin

Write ('Введите первое слово: ') ;

ReadLn (s) ;

Write ('Введите второе слово: ') ;

ReadLn (s2) ;

if Length (s) Length (s2) then

begin

Writeln ('No') ;

exit;

end;

Check : = True;

for i : = 1 to Length (s) do

if pos (s[i], s2) 0 then

Delete (s, pos (s[i], s2), 1)

else Check : = False;

If Check then

Writeln ('Yes')

else

Writeln ('No') ;

Readln;

end.