Дано целое число, лежащее в диапазоне от –999 до 999. Вывести строку — словесное описание данного числа вида «отрицательное двузначное число», «нулевое число», «положительное однозначное число» и т.д. — Pascal(Паскаль)

var
n:integer;
begin

  readln(n);
  case n of
   -999..-100:write('Это отрицательное трехзначное число');
   -99..-10:write('Это отрицательное двухзначное число');
   -9..-1:write('Это отрицательное число');
   0:write('ноль');
   1..9:write('Это положительное число');
 end;

end.