Program black_or_white;

begin

Write(¢ номер вертикалі і горизонталі: ');

ReadLn(x, у);

then Write('Клітка чорна')

else Write(‘Клітка біла');

end.

От ще одна проста шахова задача. Потрібно визначити, чи може шахова тура за один хід потрапити з клітки з координатами (х1, у1) у клітку з координатами (х2, у2). Нагадаємо, що тура ходить тільки в горизонтальному або вертикальному напрямках. Для того щоб вибрати правильне Керування ходу, помітимо, що у всіх кліток горизонталі збігаються номера рядків, а в кліток вертикалі – стовпців.

Program chess;

var xl. x2, yl, y2: Integer;

Begin

Write(‘введіть координати першої клітки x1 і y1: ');

ReadLn(x1, y1);

Write(‘введіть координати другої клітки x2 і y2: ');