Карен Давтян

const n_min=99;
      n_max=9999;

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

Flag:=False;

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

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