Даны координаты (как целые от 1 до 8) двух разных полей

var x1, y1, x2, y2, dx, dy : integer;
begin
nbsp;nbsp;nbsp;write(x1 = ); readln(x1);
nbsp;nbsp;nbsp;write(y1 = ); readln(y1);
nbsp;nbsp;nbsp;write(x2 = ); readln(x2);
nbsp;nbsp;nbsp;write(y2 = ); readln(y2);
nbsp;nbsp;nbsp;dx := абс(x1 - x2);
nbsp;nbsp;nbsp;dy := abs(y1 - y2);
nbsp;nbsp;nbsp;if (dx lt; 2) and (dy lt; 2) and not ((dx = 0) and (dy = 0))
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;then writeln(True)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;else writeln(False)
end.