сть ли в записи числа три одинаковые цифры, целочисленная арифметика Опции

[djvu]

Помогите сделать задание на целочисленную арифметику (строками пользоваться НЕльзя): Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры(n<=9999). Я вообще не придставляю как делать

[klem4]

var
  counts: Array [0..9] of Integer = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
  n: Integer;

begin
  readln(n);

  while (n > 0) do begin
    inc(counts[n mod 10]);
    n := n div 10;
  end;

  for n := 0 to 9 do
   if counts[n] = 3 then writeln(n);
end.