var a,b,c,d,f:integer;

begin

WriteLn('введите трехзначное число');

readln(a);

WriteLn('введите однозначное число');

readln(b);

c:=a mod 10;

d:=a div 10 mod 10;

f:=a div 100 mod 10;

if (b=c) or (b=d) or (b=f) then writeln ('да есть') else writeln ('таких нет')

end.