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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Program n1;

var a: integer;

begin

readln(a);

if (a>99) and (a<1000) and (a mod 2=0)

then write(‘является’) else

write(‘не является’);

end.