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

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  if n.IsOdd then Write('Нечетное ')  else Write('Четное ');  if n>999 then Write('четырех')  else    if n>99 then Write('трех')    else      if n>2 then Write('двух')      else Write('одно');  Writeln('значное число')end.