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

program zz1;

var s1, s2:string; / / задаем переменные строкового типа

i, k:integer; / / задаем переменные целого типа

begin

write (' введите первую строку ');

readln (s1); / / вводим с клавиатуры строку

write (' введите вторую строку ');

read (s2); / / вводим с клавиатуры строку

for i:=1 to length (s1) do

if pos (s1[i], s2) = 0 then k:=1; / / проверяем первую строку

for i:=1 to length (s2) do

if pos (s2[i], s1) = 0 then k:=1; / / проверяем вторую строку

if k = 0 then write (' из одного набора ')

else write (' не из одного набора '); / / выводим ответ

end.