Дано целое число, лежащее в диапазоне от 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.