ЗАДАЧА PASCAL. Сведения состоят из фамилии сотрудников и их телефонов.
Вывести фамилии сотрудников, номера телефонов которых начинаются на 361, 362, или 273.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
  N = 10;

var
  a: array [1..N] of integer;
  i, j, b: integer;

begin
  for i := 1 to N do
    a[i] := Random(81) - 40;
  writeln('Элементы массива a: ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;
 
  //сортировка не очень быстрая, но и массив маленький
  for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
  writeln;
  writeln('После сортировки : ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;  
end.

1. Ограничения
Поскольку в суммах участвуют только два однозначных числа, то сумма может находиться в пределах от 0 (0+0) до 18 (9+9).
2. Анализ
а) 211. 2-11 нарушает условие невозрастания, 21-1 - невозможная сумма 21. Это число получиться не может.
б) 1717. Тут только 17-17, Оба числа допустимы, невозрастание не нарушено. Это первое из чисел, которое допустимо.
в) 1817. Тут только 18-17. Оба числа допустимы, невозрастание не нарушено. Это второе из чисел, которое допустимо.
г) 1718. Тут только 17-18. Оба числа допустимы, но невозрастание нарушено. Это число недопустимо.
д) 1916. Тут только 19-16. Первое число недопустимо, поэтому и число 1916 недопустимо.
е) 219. 2-19 содержит недопустимое число 19. 21-9 содержит недопустимое число 21. Такое число недопустимо.
ж) 21. 2-1. Оба числа допустимы, невозрастание не нарушено. Это третье из чисел, которое допустимо.
з) 10. 1-0. Оба числа допустимы, невозрастание не нарушено. Это четвертое из чисел, которое допустимо.

ответ: 4