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

Если я правильно понял вопрос:

uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')
   else writeln ('не трехзначное');End.