Проверить истинность высказывания: «Данное число является нечетным трехзначным» — Pascal(Паскаль)

Program Boolean17;

Var
  A: Integer;

Begin
  ReadLn(A);
  WriteLn(((A - 100 >= 0) And (A - 999 <= 0)) And Odd(A));

end.