Мне надо! итак о информатике в кумир именно в кумире не в паскале и не в питоне ,а в кумире (кто в паскале сделает жалобу) такое : ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)

Алг Соседи
нач
  цел число, цифра_до, цифра
  ввод число
  утв число>=10
  цифра_до:=mod(число,10);
  число:=div(число,10);
  нц пока число>0
    цифра := mod(число,10)
    если цифра=цифра_до
      то
        вывод 'В числе есть соседние одинаковые цифры'
        стоп
      иначе
        цифра_до:=цифра
    все
    число:=div(число,10)
  кц
  вывод 'В числе нет соседних одинаковых цифр'
кон