SameDigits

На вход программы подаётся положительное целое число, не превосходящее 1000000000.
Требуется определить, есть ли в его десятичной записи хотя бы две одинаковые цифры.
На выход выдать, соответственно, да или нет.

алг SameDigits
нач
  цел D = 10
  лог таб ds[0:D-1]
  лог ok = да
  цел x, i, d
  ввод x
  нц для i от 0 до D - 1
    ds[i] := нет
  кц
  нц пока ok и x > 0
    d := mod(x, D)
    x := div(x, D)
    ok := ok и не ds[d]
    ds[d] := да
  кц 
  вывод не ok, нс
кон