Помогите сделать алгоритм проверки числа на то, есть ли оно 2 значным или 3 значным.

var n : integer;beginreadln (n);if (n > -100) and (n < 100) then write ('Это число двузначное');if (n > -1000) and (n < 1000) then write (Это число трёхзначное);end.