Могут ли в некотором подъезде первая и последняя квартиры иметь заданные номера? - Pascal

Формулировка задачи:

В доме несколько подъездов. В каждом подъезде одинаковое количество квартир. Квартиры нумеруются подряд, начиная с единицы. Может ли в некотором подъезде первая квартира иметь номер x, а последняя — номер y? Формат входных данных Вводится два натуральных числа x и y(1≤x≤y≤10000). Формат выходных данных Требется вывести «YES», если такое возможно, и «NO» в противном случае.

Решение задачи: «Могут ли в некотором подъезде первая и последняя квартиры иметь заданные номера?»

Листинг программы

const NoYes: array [Boolean] of String[3] = ('NO','YES');
var x,y: integer;
begin
  ReadLn(x,y); WriteLn(NoYes[y mod (y-x+1)=0]);
end.

Объяснение кода листинга программы

Объявляется константа NoYes - массив строк, который содержит два элемента: NO и YES.
Объявляются переменные x и y, обе с типом данных integer.
Программа считывает значения переменных x и y с помощью ReadLn.
Программа вычисляет значение выражения y mod (y-x+1)=0.
Результат вычисления выражения используется как индекс для обращения к массиву NoYes.
Результат выводится на экран с помощью WriteLn.