Заданы два положительных числа x и y.Определите , верно ли что первое число меньше второго и хотя бы одно из них нечетное. Выведите на экран true или false

Program n_1;

var x, y:integer;

begin

   readln(x, y);

   if (x<y) and ((x mod 2 = 1) or (y mod 2 = 1)) then writeln('true')

   else writeln('false');

end.