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

[djvu]

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

[djvu]

По ссылке сходил. Но сделал не много по своему. Я забил каждую цифру в отдельный элимент массива. Но щас не знаю как в массиве найти 3 ОДИНАКОВЫХ элимента это мой последний вопрос.

var
     n, i: integer;
     mas: array[0 .. 4] of integer;
     begin
        readln(n);
       while n>0 do begin
for i:=1 to 4 do
begin
mas[i]:=n mod 10;
n:=n div 10;
writeln(mas[i]);
{Здесь надо найти 3 одинаковых элимента массива???}

 end;
  end;
readln;
end.