Вот пример кода на Pascal, который проверяет, содержит ли число ровно три одинаковые цифры:

program ThreeIdenticalDigits;
var
number, digit, count: Integer;
hasThreeIdenticalDigits: Boolean;
begin
hasThreeIdenticalDigits := False;
count := 0;
write('Введите число: ');
readln(number);
repeat
digit := number mod 10;
number := number div 10;
count := 1;
while number > 0 do
begin
if digit = number mod 10 then
count := count + 1;
number := number div 10;
end;
if count = 3 then
begin
hasThreeIdenticalDigits := True;
break;
end;
until number = 0;
if hasThreeIdenticalDigits then
writeln('В числе есть ровно три одинаковые цифры.')
else
writeln('В числе нет ровно трех одинаковых цифр.');
end.