Составить программу определяющую является ли целое положительное число трехзначным

Program CH;
var N:integer;
begin
writeln('Введите число');
readln(N);
If (N>99)and(N<999) then
writeln('Число ',N,' трехзначное')
else writeln('Ваше число не является трехзначным');
end.