var
  n, i :integer;
  f :boolean;
  nStr :string;
  c :char;
  
  a :array ['0'..'9'] of integer;

begin

  readln(n);
  f:= false;
  str(n,nStr);
  for i:= 1 to length(nStr) do
    inc(a[ nStr[i] ]);
  for c:= '0' to '9' do
    if a[c] > 1 then
      f:= true;
      
  if f = true then
    writeln('В числе есть повторяющиеся цифры')
  else
    writeln('В числе нет повторяющихся цифр');

end.