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

#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) == 2) || (abs(x1 - x2) == 2 &&  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 = (x1 == x2) or (y1 == y2) or (abs(x1-x2) == abs(y1-y2))

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

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

program Boolean40;
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(x1-x2)=1) and (Abs(y1-y2)=2)) or ((Abs(x1-x2)=2) and (Abs(y1-y2)=1)));
end.