Даны два естественных числа m и n. Проверить, есть ли в

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)gt;0 then writeln(ch, заходит в состав числа , n);

k:=1;

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

while klt;gt;0 do

begin

k:=pos(ch,sn);

delete(sn,k,1);

end

end

end.