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

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