Пожалуйста помогите решить задачу в Паскаль! Дана шахматная доска(8 на8 клеток). Король...

Question

Пожалуйста помогите решить задачу в Паскаль! Дана шахматная доска(8 на8 клеток). Король стоит на клетке с координатой (x,y). Определить, может ли король за один ход перейти на клетку с координатой ( x1,y1)
Координаты (x,y) (x1,y1) задаются с клавиатуры

Answer 1

Координаты клеток - целые числа из диапазона от 1 до 8
var x,y,x1,y1:byte; b:boolean;
beginwriteln('x, y:');readln(x,y);
writeln('x1, y1:');readln(x1,y1);
b:=(abs(x1-x)=1)and(y1=y); //на 1 вертикали
b:=b or (abs(y1-y)=1)and(x1=x); //на 1 горизонтали
b:=b or (abs(x1-x)=1)and(abs(y1-y)=1);//рядом по диагонали
if b then writeln('Может') else writeln('Не может');
end.