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

Представил на языке Pascal:Program z_1;var n: integer; Begin   write('n= ');  readln(n);  if (n>=100)and(n<=999) then writeln ('Число является трехзначным') else writeln('Число не является трехзначным'); End.