Составьте программу,которая определяет является ли введенное целое число нечетным двузначным. очень срочно

Program n1;var a: integer;beginreadln(a);if (abs(a)>9) and (abs(a)<100) and (a mod 2<>0) then write('является') else write('не является');end.