program NumSigns;

var
num: integer;

begin
writeln('Введите число: ');
readln(num);

if (num >= 0) and (num < 10) then
writeln('Число однозначное')
else if (num >= 10) and (num < 100) then
writeln('Число двузначное')
else if (num >= 100) and (num < 1000) then
writeln('Число трехзначное')
else if (num >= 1000) and (num < 10000) then
writeln('Число четырехзначное')
else
writeln('Число не входит в заданный диапазон');
end.