Карен Давтян

const n_min=99;
      n_max=9999;

var n:longint;
    temp:array[0..9] of byte;
    flag:boolean;
    i:byte;

Begin
Repeat
  Write('Введите число N ('+n_min+' < N < '+n_max+'):'); Readln(N);
  if not ((n_min < N) and (N < n_max)) then Writeln('Ошибка: Неверный диапазон...');
Until (n_min < N) and (N < n_max);

While N <> 0 do
      Begin
      Inc(Temp[N mod 10]);
      N:=N div 10;
      end;

Flag:=False;
for i:=0 to 9 do if Temp[i] >= 3 then Flag:=True;

if Flag then Writeln('В записи числа имеется 3 одинаковых цифры :)')
        else Writeln('В записи числа не имеется 3 одинаковых цифры :(')
end.