Введите с клавиатуры целое число в диапазоне 1-999.
а)Определите количество знаков в числе;
б)Определите четность числа;
в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.
Пример ввода: 347
Пример вывода: Нечетное трехзначное число

Type num=1..999;Var x:num; k,y:integer;Begin write('x='); readln(x); y:=x; k:=0; while y<>0 do   begin    y:=y div 10;    k:=k+1;   end; if (x mod 2)=0 then   write('Четное ')  else   write('Нечетное '); if k=1 then write('однозначное ')  else   if k=2 then write ('двухзначное ')    else     write('трехзначное '); writeln('число');End.