Изучи предложенный алгоритм и введи с клавиатуры количество колонок, во втором разделе документа. ​

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:set of integer:=[];
  Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
  repeat
    var n:=ReadInteger;
    if not (n in [1..255]) then break
    else s+=[n]
  until false;
  Writeln('-'*10);
  foreach var k in s do
    if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.

Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500

77 8 55 222

Расстояние между ними через Т -  S - v1 * T - v2 * T :
 Допустим 1 стоит, а 2 идет навстречу 1, тогда 2 пройдет расстояние за время Т = скорость на Т (расстояние = скорость умножить на время)
значит сейчас их расстояние будет = Расстояние изначально - Расстояние пройденное = Расстояние Сначала -  скорость умножить на Т;
Теперь пусть будут двигаться они вдвоем,
Значит 1 пройдет расстояние = его Скорость умножить на Т
Тогда расстояние будет = Расстояние изначально - Расстояние, которое Расстояние, которое

подставляем буквы и получаем, что расстояние = 
расстояние изначально - скорость 2 умножить на Т - скорость 1 умножить на Т