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

var n,m:integer; mn:set of integer; b:boolean; begin write('n = '); readln(n); write('m = '); readln(m); mn:=[]; while n>0 do  begin  mn:=mn+[n mod 10];  n:=n div 10;  end; b:=false; while m>0 do  begin  if (m mod 10) in mn then b:=true;  m:=m div 10;  end; if b then writeln('Да') else writeln('Нет'); end. Пример: n = 13579 m = 6541 Да