program CheckMove;varstartX, startY, endX, endY: integer;beginwriteln('Введите начальные координаты короля (x y):');readln(startX, startY);
writeln('Введите конечные координаты короля (x y):');readln(endX, endY);
if ((abs(endX - startX) <= 1) and (abs(endY - startY) <= 1)) thenwriteln('TRUE')elsewriteln('FALSE');end.
program CheckMove;
var
startX, startY, endX, endY: integer;
begin
writeln('Введите начальные координаты короля (x y):');
readln(startX, startY);
writeln('Введите конечные координаты короля (x y):');
readln(endX, endY);
if ((abs(endX - startX) <= 1) and (abs(endY - startY) <= 1)) then
writeln('TRUE')
else
writeln('FALSE');
end.