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

Дано целое положительное число.

Program Boolean17;
Var
A:Integer;
Begin
ReadLn(A);
WriteLn(((A - 100 >= 0) And (A - 999 <= 0)) And Odd(A));
end.

автор: Sklyarov Sergej a.k.a. S9