На входе имеем 2 числа и нужно их сравнить в виде тру фолс
1 равные ли эти числа
2 неравные ли эти числа
3 первое число больше второго
4 второе число больше первого
5 квадрат первого числа больше чем второе число
6 сума этих чисел больше чем их произведение

x, y = map(float, input().split())

# f - формула

f1 = f2 = f3 = f4 = False

F1 = (x-4)*(x-4) + (y-4)*(y-4)

F2 = x*x + (y-3)*(y-3)

F3 = (x-3)*(x-3)+y*y

if (x * x + y * y <= 25) and (x * x + y * y >= 9):

f1 = True

if ((x * x + y * y <= 25) and (y > x + 5)) or ((x * x + y * y <= 25) and (y < x - 5)) \

or ((x * x + y * y <= 25) and ((x > 0 and y > 0) or (x < 0 and y < 0))):

f2 = True

if F1 == 9 or F2 == 9 or F3 == 9 or ((F1 <= 9 and F2 > 9 and F3 > 9) or (F2 <= 9 and F1 > 9 and F3 > 9) or (F3 <= 9 and F1 > 9 and F2 > 9)):

f3 = True

if (x * x + (y - 3) * (y - 3) <= 16) and (y <= 2 or y >= 5):

f4 = True

print("1:", f1)

print("2:", f2)

print("3:", f3)

print("4:", f4)

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9