//PascalABC.NET
begin
var num := readinteger().ToString;
if(num.Length = num.Distinct.Count) then
write('Нет')
else
write('Да');
end.
//PascalABC.NET
begin
var num := readinteger().ToString;
if(num.Length = num.Distinct.Count) then
write('Нет')
else
write('Да');
end.