program ideone;
var 
  n, d:integer;
  a: array[0..9] of integer;
  distinct: boolean;
begin
  readln(n);
  distinct := true;
  while n>0 do
  begin
    d := n mod 10;
    inc(a[d]);
    if a[d] > 1 then begin
      distinct := false;
      break;
    end;
  n:=n div 10;
  end;
  if distinct then write('В числе все цифры разные')
  else write('В числе есть одинаковые цифры');
end.