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

Var A:integer;BeginWriteLn('Введи число');Read(A);if (A>99)and(A<1000) then Write('Число трёхзначное')else Write('Число НЕ трёхзначное')End.