Карен Давтян

const n_min=99;
      n_max=9999;

var n,ntemp,mtemp:longint;
    flag:boolean;
    count: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);

nTemp:=N;
Flag:=False;

While nTemp <> 0 do
      Begin
      Count:=0;
      mTemp:=N;
      While mTemp <> 0 do
            Begin
            if (nTemp mod 10) = (mTemp mod 10) then Inc(Count);
            mTemp:=mTemp div 10;
            end;
      if Count >= 3 then Flag:=True;
      nTemp:=nTemp div 10;
      end;

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