program CheckNumber;

var
x: integer;

begin
writeln('Введите число X:');
readln(x);

if (x >= 100) and (x <= 999) and (x mod 2 = 0) then
writeln('Число X является трёхзначным и чётным')
else
writeln('Число X не является трёхзначным и чётным');

end.