I can't really understand what is wrong!!!
Appreciate for any hint.

var
  x, y: longint;
begin
  readln(x, y);
  if (x > 0) and (y > 0) and (x+y > 0) and ((x or y) and 1 = 1) then write(y, ' ', x)
  else write(x, ' ', y);
end.

Oops! Sorry!
The problem already is found and revised.