На інтервалі від n до k обрати ті числа, що містять рівно 3 однакові цифри. приклад: 6766, 5444, 1161, 6

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
  for var i := ReadInteger('n->') to ReadInteger('k->') do
    if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0 
      then i.Println;
end.

Пример:
k-> 1170
n-> 1111
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1121 
1131 
1141 
1151 
1161