Пример решения на языке Pascal:

program CheckDigits;
var
number, digit1, digit2, digit3: integer;
begin
writeln('Введите трехзначное число:');
readln(number);
digit1 := number div 100;
digit2 := (number div 10) mod 10;
digit3 := number mod 10;
if (digit1 = digit2) and (digit2 = digit3) then
writeln('Все цифры числа одинаковые.')
else
writeln('Цифры числа различны.');
end.

Пользователю нужно ввести трехзначное число, затем программа определяет каждую цифру числа и проверяет, одинаковые ли они. Если все цифры одинаковые, то программа выводит сообщение "Все цифры числа одинаковые.", иначе выводит "Цифры числа различны.".