Напишите программу на АВС паскаль .Net которая определяет является ли число Х трёхзначным и чётным

Ответ:

Var x:integer;

Begin

Read(x);

If (x<1000 and x>99 and x mod 2=0) then write('является')

Else write('не является');

End;