Введите с клавиатуры целое число в диапазоне 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.