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

Question

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

Answer 1

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');<br>end.