дано целое число, лежащее в диапазоне 1-999. выведите строку-описание этого числа в виде "чётное двузначное число", "нечётное трёхзначное число" и т.д.​

var s: string;

a: integer;

begin

readln(a);

if a mod 2=0 then s:='четное' else s:='нечетное';

if a in [1..9] then s:=s+' однозначное число';

if a in [10..99] then s:=s+' двузначное число';

if a in [100..999] then s:=s+' трехзначное число';

write(s);

end.