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

# include <iostream>
# include <windows.h>
# include <cmath>

using namespace std;

int main ()

{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  int a, b, c;
  bool answer;
  cout << "Введите 3 числа: " << endl;
  cout << "Введите a: ";
  cin >> a;  
  cout << "Введите b: ";
  cin >> b;
  cout << "Введите c: ";
  cin >> c;
  answer= a==b || a==c || b==c;
  cout << "Среди трех данных целых чисел есть хотя бы одна пара совпадающих: " << boolalpha << answer << endl;

  system ("pause");
  return 0;
}

import random
A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print("A = ", A)
print("B = ", B)
print("C = ", C)
ab = (A == B)
bc = (B == C)
ac = (A == C)
x = ab or bc or ac
print("A равно B: ", ab)
print("B равно C: ", bc)
print("A равно C: ", ac)
print("Есть хотя бы одна пара совпадающих: ", x)
									

program Boolean18;
var
 A,B,C: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  Write('Введите число C: ');
  Readln(C);
  Writeln((A=B) or (B=C) or (C=A));
end.