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

var   n: integer; Begin   write('n= ');   readln(n);   if (n>=100)and(n<=999) then writeln('ЯВЛЯЕТСЯ') else writeln('НЕ ЯВЛЯЕТСЯ'); End.