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

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