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

var n,m:integer;mn:set of integer;b:boolean;beginwrite('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 = 13579m = 6541Да