Дано число определить является ли оно четным трехзначным? (на языке программирования)

Program n1;
var a: integer;
begin
readln(a);
if (a>99) and (a<1000) and (a mod 2=0)
then write('является') else
write('не является');
end.