Решение задачи Boolean 37

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int x1,y1,x2,y2;
    cin >> x1 >> y1 >> x2 >> y2;
    if(abs(x1 - x2) <= 1 && abs(y1 - y2) <= 1)
        cout << "1";
    else
        cout << "0";
    return 0;
}

import random

x1,y1,x2,y2 = [random.randrange(1, 9) for i in range(0,4)]
x1,y1,x2,y2 = [2,2,2,1]

c = (abs(x1-x2) == 1 and abs(y1-y2) == 1) \
    or (x1 == x2 and abs(y1-y2) == 1) \
    or (y1 == y2 and abs(x1-x2) == 1)

print("The 1st field:")
print("x1: ", x1)
print("y1: ", y1)
print()
print("The 2nd field:")
print("x2: ", x2)
print("y2: ", y2)
print()

print("King can move in one turn \
from one field to another: ",(c))
									

program Boolean37;
var
 x1,y1,x2,y2: Integer;
begin
 Write('Введите 1 координату 1 клетки шахматной доски: ');
 Readln(x1);
 Write('Введите 2 координату 1 клетки шахматной доски: ');
 Readln(y1);
 Write('Введите 1 координату 2 клетки шахматной доски: ');
 Readln(x2);
 Write('Введите 2 координату 2 клетки шахматной доски: ');
 Readln(y2);
 //Writeln((abs(abs(x1-x2)-abs(y1-y2))<=1) and ((abs(x1-x2)+abs(y1-y2))<>0));
 Writeln((abs(x1-x2)<=1) and (abs(y1-y2)<=1));
 readln;
end.