Описание чисел

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

Program begin62;

Uses crt;

Var a:integer;

begin

WriteLn (‘Введите a’);

ReadLn (a);

if (a>(-100)) and (a<(-9)) then

WriteLn (‘Отрицательно двузначное’)

else

if (a=0) then

WriteLn (‘Нулевое число’)

else

if (a>0) and (a<10) then

WriteLn (‘Положительное однозначное’);

ReadLn

end.

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