---

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