Определить цвет указанной клетки шахматной доски. - Turbo Pascal

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

Определить цвет указанной клетки шахматной доски. Клетка задается своими координатами x (номер вертикали) и y (номер горизонтали). Будем считать, что клетка (1,1) – черная.

Решение задачи: «Определить цвет указанной клетки шахматной доски.»

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

function getColor(x, y: byte): byte;
begin
  getColor := (x - y) mod 2
end;

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

Функция getColor принимает два параметра: x и y, оба типа byte.
Вычисляется значение выражения (x - y) mod 2, где оператор mod возвращает остаток от деления.
Результат вычисления присваивается переменной getColor.
В зависимости от значения переменной getColor, возвращается соответствующий цвет клетки шахматной доски: белый или черный.