--- PascalABC.NET 3.6.2 ---
begin
var (N, M) := ReadString2();
if N.Contains(M) then println('Number N contains digit M') else println('No match');
end.
Объяснение:
