Введите с клавиатуры целое число в диапазоне 1-999. А) Определите количество знаков…

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.