uses crt;
var a,b:longint;
ma,mb:set of byte;
k:byte;
begin
clrscr;
repeat
writeln('Введите 2 пятизначных числа:');
readln(a,b);
until(a>=10000)and(a<=99999)and(b>=10000)and(b<=99999);
ma:=[];
while a>0 do
begin
k:=a mod 10;
ma:=ma+[k];
a:=a div 10;
end;
mb:=[];
while b>0 do
begin
k:=b mod 10;
mb:=mb+[k];
b:=b div 10;
end;
if ma*mb<>[] then write('Есть!')
else write('Нет!');
readln
end.