Дано целое число, лежащее в диапазоне 1-99 . вывести его строку-описание вида «четное двухзначное число», «нечетное однозначное число» и т.д. !

var a:integer;

begin

write('a = ');

readln(a);

if a mod 2 = 0 then write('четное ') else write ('нечетное ');

if (a>0) and (a<10) then write ('однозначное число') else write ('двузначное число')

end.