Помогите пожалуйста мне срочно надо!Итак задание о информатике в Кумир именно в кумире НЕ В ПАСКАЛЕ И НЕ В ПИТОНЕ ,А В КУМИРЕ (кто в паскале сделает жалобу) задание такое :Ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)

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