var

 i:integer;

 s:string;

begin

 readln(s);

 for i:=1 to length(s)-1 do

   if s[i]=s[i+1] then begin

     writeln('Да');

     exit;

   end;

 writeln('Нет');

end.

Пояснения:

для поиска повторяющихся цифр во введённом числе, будем проверять соседние числа. Проще перевести это число в строку и проверять соседние символы. Поэтому сразу считаем введённое число как строку символов. Это позволит так же использовать эту программу для поиска одинаковых соседних символов в обычном тексте (string).

В цикле проверяем соседние символы на равенство.