program ideone;

var num, a, b, c: integer;

begin
    write('Введите число: ');
    read(num);
    if (num > 1000) or (num < 100) then
    begin
        write('Ошибка! Это не трёхзначное число!');
        exit
    end;

    a := num div 100;
    num := num mod 100;
    b := num div 10;
    c := num mod 10;

    if (a = b) or (a = c) or (b = c) then
        write('Есть одинаковые цифры')
    else
        write('Нет одинаковых цифр')
end.