---

алг
нач
  цел n, a, b, c
  ввод n
  a := n / 100
  n := n - a*100
  b := n / 10
  c := n - b*10
  если a = b или a = c или b = c
    то вывод "Есть одинаковые цифры"
    иначе вывод "Все цифры разные"
  все
кон