Определите является ли заданное число а нечетным двузначным числом

Var
a:longint;
begin
read(a);
if (a div 10<>0) and ((a div 10)<10) and (a mod 2=1) then writeln('Yes') else writeln('No');
end.