Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n. P.S.

program test;

var n,m,k: integer;

sn,sm, ch: string;

begin

writeln(\'Введите числа m и n через пробел\');

readln (m,n);

str(n,sn); //преобразование числа n в строку

str(m,sm);//преобразование числа m в строку

for i:integer:=1 to length(sm) do //цикл поиска одинаковых цифр 

//+ вложенный цикл удаления найденных цифр из строки sn (из числа n)

begin

ch:=copy(sm,i,1);//в ch поочередно помещаются цифры первого числа;

//если очередная цифра есть во втором числе, то выводится сообщение

if pos(ch,sn)>0 then writeln(ch, \' входит в состав числа \', n);

k:=1;

//Цикл удаления найденной совпадающей цифры из строки sn (из числа n)

while k<>0 do

begin

k:=pos(ch,sn);

delete(sn,k,1);

end

end

end.