Var
x, a, b, c: integer; //Объявление переменных
begin //Начало
read(x); //Ввод искомого числа
a := x div 100; //В переменную a записываем 1 //цифру искомого числа
b := x div 10 mod 10; //В переменную b записываем 2 //цифру искомого числа
c := x mod 10; //В переменную c записываем 3
//цифру искомого числа
//writeln(a, ' ', b, ' ', c, ' ');
if(a <> b) and (a <> c) then write('Нет') //Если 1 цифра искомого числа не //равна 2 и 3 тогда одинаковых цифр в искомом числе нет
else write('Да'); //Иначе одинаковые цифры в // искомом числе есть
end. //Конец
И бонус в приложении: