На інтервалі від 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 

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

Var
a : array[1..10] of word;
max : word;
begin
   
  randomize;
 
  for I : byte := 1 to 10 do
  a[i] := random(1, 60000);

  max := 0;
  for I : byte := 1 to 10 do
  if a[i] > max then max := a[i];

  writeln(max*3);

end.

Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.